40 Best Machine Code 
Routines for the 64 

Mark Greenshields 




Duckworth 



First published in 1984 by 
Gerald Duckworth & Co. Ltd. 
The Old Piano Factory 
43 Gloucester Crescent, London NW1 

©1984 by Mark Greenshields 

All rights reserved. No part of this publication 
may be reproduced, stored in a retrieval system, 

or transmitted, in any form or by any means, 
electronic, mechanical, photocopying, recording 
or othenwise, without the prior permission of the 
publisher. 

ISBN 7156 1899 7 



British Library Cataloguing in Publication Data 
Greenshields, Mark 

Forty best machine codes for the 64 

1. Commodore 64 (Computer) 2. Machine 

codes (Electronic codes) 

I. Title 

001.6475 QA76.8.C64 
ISBN 0-7156-1899-7 



Typeset by The Electronic Village, Richmond 
from text stored on a Commodore 64 
Printed in Great Britain by 
Redwood Burn Ltd., Trowbridge 
and bound by Pegasus Bookbinding, Melksham 



Contents 

Preface 

Supermon: an assembler/ disassembler written in 
machine code by Jim Butterfield for the 64. 

ROM Routines 

1. Fill: fills an area of memory with a byte. 

2. Move: allows you to move an area of memory to 
another location. 

3. Pause: allows you to pause a listing at any time by 
just pressing a shift key. 

4. Function keys: This program allows you to program 
the function keys. 

5. IRQ clock: displays a clock in 24 hour format at the 
top of the screen whether a program is running or not. 

6. Pixel scroll left: scrolls the screen one pixel to the left. 

7. Pixel scroll right : scrolls the screen one pixel to the 
right. 

8. Pixel scroll up: scrolls the contents of the screen one 
pixel up. 

9. Pixel scroll down: scrolls the screen one pixel down. 

10. Colour: sets the screen, border, text, multicolours 
1 , 2 and 3 in one command without PEEKs and POKEs. 

1 1 . Copy: allows you to copy any part or all of the 



character ROM down to any location in RAM. 64 

12. Sprite/char detect: tells you what character a sprite 

is passing over or under, not just if it is touching. 68 

13. Doke: allows you to POKE a 16 bit number into 
memory easily. 75 

1 4. Deek: complements Doke, and allows you to read 
the 16 bit number contained in two consecutive 
locations. 77 

15. 3-channel IRQ tune: plays a tune using all three 
channels. It does not tie up the computer, so you could 

type in another program while listening to this one. 79 

16. List alter: allows you to list programs to the screen 

or printer in any column width. 84 

17. Old: allows you to recover a program accidentally 
newed. It can be loaded after you have newed the 
program and still work. 86 

18. Graph: turns the high res screen on. 88 

19. NRM: turns the high-res screen off and returns to 

the text screen. 90 

20. CLG: clears the high-res screen and colours it as 
specified. 91 

21. Plot: plots a point on the high res screen. 94 

22. Unplot: extends the above to allow a point to be 
removed from the high-res screen. 100 

23. CHAR: puts a text or UDG character onto the high- 
res screen. 101 

24. Change bank: changes the Video bank in one simple 
command. The Copy command above can be used to 



6 



move the character set to the new bank. 1 08 

25. Invert: allows you to invert all or part of the high-res 
screen. 110 

26. Organ: this routine is interrupt driven and allows you 
to play music even while programming or running 
another program. 113 

27. Sound: makes sound much easier on the 64. It uses 
preset ADSR's etc. You only need to specify the voice, 

the volume, the frequency and the waveform. 1 1 6 

28. Envelope: does the same as the sound function 
except that you can specify the envelope of your choice. 1 22 

29. DIR: reads and displays the disk directory of one or 

both drives without disturbing the program in memory. 1 30 

30. MSAVE: allows you to save any area of memory onto 

disk or cassette. 135 

31 . MLOAD/MVERIFY: allows you to load to any part 

of memory from disk or cassette. 137 

32. DISK: allows you to send a command to the disk 
drive, e.g. format a disk. 139 

33. DERROR: allows you to read the disk error channel 
within a program or directly. 141 

34. Scroll message: allows a message to be scrolled 
along the second bottom line of the screen even if a 
program is running. 143 

35. Flash screen: allows you to flash the screen colour. 
You set colour 1, colour 2 and the number of times a 
second for the flash. 149 

36. Flash border: as above but for the border. 1 53 



7 



37. Flash characters: allows you to flash the characters 

on the screen. 1 57 



38. Flash colour: allows you to flash the colour of the 
characters on the screen. You specify colour 1, colour 

2 and the number of changes per second. 161 

39. Print at: allows you to print text anywhere on the 
screen without all those weird symbols. 1 67 

40. Split screen: allows you to split the screen into text 
and screen using raster interrupts. You specify where 
the change is to take place and whether text or high res 

is at the top or the bottom. 1 69 



8 



Preface 



This book is not intended to teacli you machine code on the 
CBM 64. It contains 40 machine code routines that can be used 
in your Basic or machine code programs to do things that are 
not implemented in the standard BASIC or operating system 
in your Commodore 64. 

The book includes a listing of Supermen which is a public domain 
assembler/disassembler written by Jim Butterfield (thanks Jim). 
It can be used to enter the programs in this book if you do not 
possess an assembler. The listings are all given twice: once in 
an assembled listing from the PAL assembler from Proline 
Software (this, along with POWER, is the best machine code 
development package that I have seen), and once in a 
disassembled version suitable for entering with Supermon or 
similar. 

I hope that you find the book useful and that the routines help 
to improve your programs. 
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Supermon 



There follows a listing of Supermon which is a public domain 
assembler/disassembler/monitor. Thanks to Jim Butterfield for 
this program. The Basic program which follows is used to enter 
this assembler. You will need this assembler or a similar one to 
enter all the programs in this book. 

Supermon is listed as a hex dump, which is a listing of 
hexadecimal numbers. This makes it easy to enter into a Basic 
loader program. 

To enter Supermon, type in the following commands in direct 
mode (where < return > means press the return key), and then 
type in the Basic loader and save it. 

POKE 43,1 < return > 
POKE 44,32 < return > 
POKE8192,0 < return > 
NEW < return > 

Now run the loader and you will see the prompt: 
.0800 ? 

You will see that the first number corresponds with the first 
number in the Supermon listing. This is where you type the data. 
The first three lines that you would type are as follows. Type 
the program in without spaces. 

.0800 ? 001A086400992293 
.0808 ? 121D1D1D1D535550 
.0810 ? 45522036342D4D4F 

Don't worry if you don't understand what you are typing in. Just 
type exactly what is printed and it will work. It is worth it as 
writing machine code using an assembler is far easier than doing 
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it by hand. Once you have finished typing in the program you 
will be prompted with: 

SAVE TO TAPE OR DISK ? 

Press T if you are using cassette and have a blank cassette in 
the recorder. Press D if you are using disk and make sure that 
a formatted disk with at least 1 1 blocks free is in the drive. 

If you pressed T you will be prompted with PRESS PLAY ON 
TAPE and if you pressed D the drive will start whirring. The 
program is now being saved to tape or disk. If an error occurs 
then typing RUN100 will allow you to save the program again. 
It can be loaded in the normal way. 

L0AD"SUPERM0N",1 OR L0AD"SUPERM0N",8 

Then run the program. Some writing will appear on the screen 
and a '.' prompt will appear. 

To make spare copies of Supermen just load the program and 
save it as if it was Basic. 

Supermen is given here as a relocatable loader: it can be located 
anywhere in RAM. To adjust where it is to be located in memory, 
find the starting address and add 2065 to it. Use the following 
formula to calculate the two numbers necessary: 

L0= INT(number/256) 
Hl= ((number/256)-LO)*256 

Now POKE 55 with the value of LO and POKE 56 with the value 
of HI and run Supermen. 

To restart Supermen, type SYS starting address + 1 . The normal 
value to start Supermen is SYS 38893. 



Instructions for using Supermon 

Supermen commands are all one-letter commands usually 
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followed by parameters. 

The first command that we will look at is 'A'. This stands for 
ASSEMBLE and is the most frequently used command in any 
assembler. It will be used for entering almost all the programs 
in this book. The syntax for 'A' is as follows: 

A (start address in hex) (mnemonic) (operand). 

e.g. A 1000 LDA #$10 

The address is the starting address in hex. The mnemonic is the 
assembly language command and the operand is the number 
associated with the command if there is one. 

After you press return from the first line, if it is incorrect syntax, 
the computer will prompt you with an 'A' and the next address. 
Therefore you need only enter the starting address, the assembler 
does the rest. To leave the assembly press the return key. 

Here is a simple example program which shows you how the 
assembler works. 

.A 1000 LDA #$00 
.A 1002 STA $D020 
.A 1005 STA $D021 
.A 1008 RTS 

This program makes the screen and the border black. Type it 
in to see how to use the assembler. If you make an error the 
computer will print a question mark. If this happens use the 
normal screen editor and change the mistake and delete the 
question mark. Press return and if the next address is prompted 
then the line is now correct. 

Now that you have typed this in, you may want to save the 
program. The command to do this is 'S'. The syntax is as follows: 

S"name",device,start,end + 1 

The total length of the name must not exceed 16 or a question 
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mark will be printed. The device is the device that the computer 
is to save to: 01 is tape and 08 is disl<. The O's before the number 
are essential for correct syntax. The start is the starting address 
in hex of the save. The end + 1 is the end address plus 1 that 
the computer is to save to. The reason that you must save up 
to the end + 1 is that the ROM routine used to save to memory 
saves up to but not including the end address specified. All the 
parameters must be separated by a comma. 

The next command is the command to execute a program in 
machine code from the assembler. It is 'G' and has the syntax: 

G address to start at. 

If you want to return control to the monitor when the program 
has been run then make the last command of the program a 
BRK command instead of an RTS. 

The next command allows you to see a program in memory. 
It is 'D' and has the syntax: 

D start 

e.g. D 1000 

This command clears the screen and prints a page of commands. 
To see more press D and return. 

The next command is the same as 'D' except that it prints a 
continuous listing without clearing the screen. The command 
is 'P' and it has the syntax: 

P start end 

It is mainly used when you want a printer listing. To print a 
disassembly to the printer type the following in Basic: 

0PEN4,4 : CMD4 : SYS38893 

(The SYS assumes that the monitor is at its default position in 
memory. If it isn't, use your address.) 
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The printer will print something and then you can type what 
you want. You can use 'P' or 'M' (coming up next). To disable 
the printer when it has finished type 'X' < return > (explained 
later) and type CL0SE4. < return >. 

Often you will want a listing of memory in hex (which Supermon 
was listed in). This is done with the 'M' command which has 
the syntax: 

M start end 

where start and end are in hex. This command may also be used 
to the printer. You may also change memory by using this 
command and then typing over values and pressing return at 
the end of each line. 

The monitor has a command to fill areas of memory with a 
number. It is 'F' and it has the syntax: 

F start end byte 

where start and end are addresses in hex and byte is a byte in hex. 

Supermon can move parts of memory to another part. The 
command is T' which stands for transfer memory. It has the 
syntax: 

T oldstart oldend newstart 

where oldstart, oldend and newstart are addresses in hex. 

If you want to find the contents of the registers at any time, 
type the command 'R' on its own. 

If you are working in the assembler and you want to load a 
program into memory where it came from, there are two ways 
to do this: 

1. return to Basic and type LOAD"name", device, 1 

e.g. To load the file hello from tape type LOACH ELLO", 1,1 
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2. use the command 'L' in the monitor. It has the syntax: 

L"name", device 

where device is 01 for tape and 08 for disk. 

To exit the assembler and return to Basic type X < return > or 
press run/stop and restore. 



Summary of SUPERMON commands. 

Meaning 



Command 
Syntax 

A Assemble Mnemonics into 

memory 
D Disassemble memory 
M Display hex from memory 
S Save memory to device 
L Load memory from device 
P Print disassembly of memory 
F Fill memory 

T Transfer memory to memory 
X Exit to Basic 
R Register display 
G Goto address 



A 1000 LDA #$10 

D 1000 

M 1000 2000 

S"name",08, 1000,2000 

L"name",01 

P 1000 2000 

F 3000 4000 FF 

T 1000 2000 COOO 

X 

R 

G FFD2 



1 HE«=''0123456789ABCDEF" 

10 PRINT "{CLR>" 

20 FORA=2049TO4587STEP8 

30 GOSUB1000:REM CONVERT ADDRESS TO HEX 
IN H« 

40 PRINT" .» ;h«; : INPUT a«:rem s hex numbe 

RS 

50 F0RX=1T016STEP2 



16 



60 B«=MID*<A«,X,2) 

70 6OSUB2000:rem convert hex no. to dec I 

MAL 

80 P0KEA+X/2,HEX 
90 NEXT: NEXT 

100 INPUT "SAVE TO TAPE OR DISK";TD« 
110 IFTD«="D"ORTD«="T''THEN120 
115 GOTO100 

120 IFTD*="D"THENDEV=8 
130 IFTD«="T"THENDEV=1 

140 FORA=0TO34: READB: POKEA+49152, B: NEXT: 

P0KE49153,DEV: INPUT "ARE YOU SURE»;S« 

130 IFS*="N»THEN100 

160 SYS49152: REM SAVE ASSEMBLER 

170 PRINT"MACHINE CODE SAVED" 

180 PRINT" IT MAY BE LOADED FROM TAPE OR 

DISK IN THE NORMAL WAY LIKE A BASIC" 

190 PR I NT "PROGRAM AND THEN RUN" 

200 END 

1000 N1=INT (A/4096) : N6= ( A/4096-N1 ) *16: N2 

=INT<N6) :N3=INT< (N6-N2)*16) 

1010 N4=<< (N6-N2)*16) -N3)*16 

1030 H«=MID*<HE«,N1+1, 1) +MID»(HE«,N2+1, 1 

) +MID*<HE«,N3+1, 1) +MID«(HE«,N4 + 1 , 1) 

1040 RETURN 

2000 F0RV=1T016:B=V-1: IFLEFT«(B», 1)=MID« 
(HE*,V, 1)THEN2020 
2010 NEXT 
2020 HEX=B«-16 

2030 F0RV=1T016:B=V-1: IFRieHT«(B«, 1)=MID 

*(HE«, V, 1)THEN2050 

2040 NEXT 

2030 HEX=HEX+B 

2060 PRINT HEX 

2070 RETURN 

10000 DATA 162,1,160,1,32,186,255,162,26 
, 160, 192, 169,8,32, 189,253, 162,236, 160 
10010 DATA 17,169,251,32,216,255,96,83,8 
5,80,69,82,77,79,78,0 

20000 0PEN15,8, 15: INPUT**15,A«,B«,C«,D*:P 
RINTA*, B*, C*, D*: CL0SE15 
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F3 


60 


20 


88 


FA 


00 


90 


02 


:0BC0 


85 


C2 


20 


88 


FA 


00 


90 


02 


:06cs 


85 


CI 


60 


A9 


00 


00 


85 


2A 


:0BO0 


20 


3E 


F8 


00 


09 


20 


00 


09 


:0BO8 


20 


3E 


F8 


00 


09 


20 


00 


0E 


: 0BE0 


18 


60 


20 


AF 


FA 


00 


0A 


0A 


:0BE8 


0A 


0A 


85 


2A 


20 


3E 


F8 


00 


:0BF0 


20 


AF 


FA 


00 


05 


2A 


38 


60 


:0BF8 


C9 


3A 


90 


02 


69 


08 


29 


0F 


:0C00 


60 


A2 


02 


20 


A2 


00 


00 


B4 


:0C08 


CI 


D0 


08 


B4 


02 


D0 


02 


E6 


:0C10 


26 


D6 


C2 


D6 


01 


60 


20 


3E 


:0C18 


F8 


00 


09 


20 


F0 


F9 


60 


A9 


:0C20 


00 


00 


8D 


00 


00 


01 


20 


OC 


:0C28 


FA 


00 


20 


8F 


FA 


00 


20 


70 


:0C30 


FA 


00 


90 


09 


60 


20 


3E 


F8 


:0C38 


00 


20 


79 


FA 


00 


B0 


DE 


AE 


:0C40 


3F 


02 


9A 


EA 


EA 


EA 


EA 


EA 


:0C48 


A9 


3F 


20 


D2 


FF 


40 


47 


F8 


:0C50 


00 


20 


54 


FD 


00 


OA 


00 


FA 


:0C58 


60 


E6 


03 


00 


02 


E6 


04 


60 


:0C60 


A2 


02 


B5 


00 


48 


B5 


27 


95 


:0C68 


C0 


68 


95 


27 


OA 


D0 


F3 


60 


:0C70 


A5 


C3 


A4 


04 


38 


E9 


02 


B0 


:0C78 


0E 


88 


90 


0B 


A5 


28 


A4 


29 


:0C80 


4C 


33 


FB 


00 


AS 


03 


A4 


04 


:0C88 


38 


E5 


01 


85 


IE 


98 


E5 


02 


:0C90 


A8 


05 


IE 


60 


20 


D4 


FA 


00 


:0C98 


20 


69 


FA 


00 


20 


E5 


FA 


00 


:0CA0 


20 


0C 


FB 


00 


20 


E5 


FA 


00 


:0CA8 


20 


2F 


FB 


00 


20 


69 


FA 


00 


:0CB0 


90 


15 


A6 


26 


D0 


64 


20 


28 


:0CB8 


FB 


00 


90 


5F 


Al 


01 


81 


03 


:0CC0 


20 


05 


FB 


00 


20 


33 


F8 


00 


:0CC8 


D0 


EB 


20 


28 


FB 


00 


18 


AS 


:0CD0 


IE 


65 


03 


85 


03 


98 


65 


04 


:0CD8 


85 


C4 


20 


0C 


FB 


00 


A6 


26 


:0CE0 


D0 


3D 


Al 


01 


81 


03 


20 


28 


:0CE8 


FB 


00 


B0 


34 


20 


B8 


FA 


00 


:0CF0 


20 


BE 


FA 


00 


40 


7D 


FB 


00 


:0CF8 


20 


D4 


FA 


00 


20 


69 


FA 


00 



:0D00 20 E5 FA 
:0D08 20 3E F8 
:0D10 90 14 85 
:0D18 20 2F FB 
:0D20 81 CI 20 
:0D28 4C ED FA 
:0D30 20 D4 FA 
:0D38 20 E5 FA 
:0D40 20 3E F8 
:0D48 3E F8 00 
:0D50 3E F8 00 
:0D58 CF FF C9 
:0D60 D0 Fl F0 
:0D68 20 8F FA 
:0D70 02 E8 20 
:0D78 09 20 88 
:0D80 20 D0 EC 
:0D88 EA EA 20 
:0D90 00 A0 00 
:0D98 02 D0 0C 
:0DA0 F3 20 41 
:0DA8 00 20 33 
:0DB0 8D 20 2F 
:0DB8 47 F8 00 
:0DC0 20 AS C2 
:0DC8 86 28 A9 
:0DD0 EA EA EA 
:0DD8 20 6A FC 
:0DE0 85 CI 84 
:0DE8 A9 91 20 
:0DF0 00 A0 2C 
:0DF8 54 FD 00 
:0E00 54 FD 00 
:0E08 20 D9 FC 
:0E10 00 68 20 
:0E18 E0 03 D0 
:0E20 AS 2A C9 
:0E28 20 C2 FC 
:0E30 2A 90 0E 
:0E38 AS FD 00 
:0E40 03 20 AS 



00 20 69 FA 00 
00 20 88 FA 00 
ID A6 26 D0 11 
00 90 0C AS ID 
33 F8 00 D0 EE 
00 4C 47 F8 00 
00 20 69 FA 00 
00 20 69 FA 00 
00 A2 00 00 20 
C9 27 D0 14 20 
9D 10 02 E8 20 
0D F0 22 E0 20 
IC 8E 00 00 01 
00 90 C6 9D 10 
CF FF C9 0D F0 
FA 00 90 B6 E0 
86 IC EA EA EA 
57 FD 00 A2 00 
00 Bl CI DD 10 
C8 E8 E4 IC D0 
FA 00 20 54 FD 
F8 00 A6 26 D0 
FB 00 B0 DD 4C 
20 D4 FA 00 85 
85 21 A2 00 00 
93 20 D2 FF EA 
EA A9 16 85 ID 
00 20 CA FC 00 
C2 C6 ID D0 F2 
D2 FF 4C 47 F8 
20 C2 F8 00 20 
20 41 FA 00 20 
A2 00 00 Al CI 
00 48 20 IF FD 
35 FD 00 A2 06 
12 A4 IF F0 0E 
E8 Bl CI B0 IC 
00 88 D0 F2 06 
BD 2A FF 00 20 
BD 30 FF 00 F0 
FD 00 CA D0 D5 



:0E48 

:0E50 
:0E58 
:0E60 

:0E68 

:0E70 

:0E78 

:0E80 

:0E88 

:0E90 

:0E98 

:0EA0 

:0EA8 

:0EB0 

:0EB8 

:0EC0 

:0EC8 

:0ED0 

:0ED8 

:0EE0 
:0EE8 
:0EF0 
:0EF8 
:0F00 
:0F08 
:0F10 
:0F18 
:0F20 

:0F28 

:0F30 
:0F38 
:0F40 

:0F48 

:0F50 

:0FS8 

:0F60 

:0F68 

:0F70 

:0F78 

:0F80 

:0F88 



60 20 
01 C8 
86 IC 
60 A5 
01 88 
A8 4A 
22 F0 
AA BD 
4A 4A 
80 A9 

00 8S 
29 8F 
F0 0B 
20 88 
60 Bl 

01 20 
90 Fl 
60 A8 
B9 77 
00 A0 
88 00 
CA D0 
4C D2 
69 FA 
69 FA 
EA EA 
00 20 
00 85 
F0 05 
4C 47 
A9 03 
20 Al 
85 CI 
FC 00 
FF 60 
FA 00 
CC FA 
03 68 
6E 11 
F6 CA 
FF C9 



CD FC 
98 20 
20 48 
IF 38 
65 CI 
90 0B 
13 29 
D9 FE 
4A 29 
00 00 
2A 29 
AA 98 
4A 90 
D0 FA 
CI 20 
FE FA 
A2 03 
B9 37 
FF 00 
05 06 
F8 69 
EC A9 
FF 20 
00 20 
00 A2 
EA EA 
72 FC 
CI 84 
20 2F 
F8 00 
85 ID 
F8 00 
A5 21 
C5 28 
20 D4 
8E 11 
00 48 
38 E9 
02 6E 
D0 ED 
0D F0 



00 AA 
C2 FC 
FA 00 
A4 C2 
90 01 
4A B0 

07 09 
00 B0 
0F D0 
AA BD 

03 85 
A0 03 

08 4A 
C8 88 
C2 FC 
00 C4 
C0 04 
FF 00 
85 29 
29 26 
3F 20 
20 2C 

04 FA 
E5 FA 
00 00 
EA 20 
00 20 
C2 20 
FB 00 
20 04 
20 3E 
00 F8 
85 C2 
F0 03 
FA 00 
02 A2 
CA 00 
3F A0 
10 02 
A2 02 
IE C9 



E8 D0 
00 8A 
A6 IC 
AA 10 
C8 60 
17 C9 
80 4A 
04 4A 

04 A0 
ID FF 
IF 98 
E0 8A 
4A 09 
D0 F2 
00 A2 
IF C8 
90 F2 

85 28 
A9 00 
28 2A 

02 FF 
A9 00 
00 20 
00 20 

86 28 
57 FO 
CA FC 
El FF 
B0 E9 
FA 00 
F8 00 
AS 20 
4C 46 
20 02 
20 69 

03 20 
F9 A2 

05 4A 
88 00 
20 CF 
20 F0 



0F90 F5 20 D0 
0F98 9C FA 00 
0FA0 CI A9 30 
0FA8 10 02 E8 
0FB0 00 00 S6 
0FB8 F0 73 A2 
0FC0 26 20 D9 
0FC8 29 AA BC 
0FD0 FF 00 20 
0FD8 A2 06 E0 
0FE0 F0 15 A5 
0FE8 B0 21 20 
0FF0 20 CI FE 
0FF8 EB 06 2A 
1000 00 BD 2 A 
1008 00 D0 B5 
1010 20 B8 FE 
: 1018 FE 00 D0 
!1020 D0 A0 20 
I 1028 F0 28 A5 
;1030 20 IC FB 
11038 04 AS IE 
; 1040 00 C8 D0 
;1048 A4 IF D0 
! 1050 91 CI 88 
; 1058 CI 20 C A 
: 1060 C2 EA EA 
:1068 20 C2 F8 
! 1070 20 41 FA 
:1078 EA EA EA 
: 1080 00 A8 20 
:1088 98 F0 0E 
: 1090 10 02 08 
: 1098 28 60 C9 
: 10A0 60 38 60 
:10A8 08 40 09 
: 10B0 08 40 09 
: 10B8 08 40 09 
:10C0 08 40 09 
: 10C8 D0 8C 44 
: 1000 33 D0 8C 



FE 


00 


B0 


0F 


20 


A4 


CI 


84 


C2 


85 


9D 


10 


02 


E8 


90 


D0 


OB 


86 


28 


A2 


26 


F0 


04 


E6 


26 


00 


00 


86 


10 


A5 


FC 


00 


A6 


2A 


86 


37 


FF 


00 


BO 


77 


B9 


FE 


00 


00 


E3 


03 


00 


19 


A4 


IF 


2A 


C9 


E8 


A9 


30 


BF 


FE 


00 


00 


CC 


00 


00 


C7 


88 


00 


90 


0B 


BC 


30 


FF 


FF 


00 


20 


B9 


FE 


CA 


00 


01 


F0 


0A 


00 


00 


AB 


20 


B8 


A6 


A5 


28 


C5 


10 


69 


FA 


00 


A4 


IF 


29 


C9 


90 


00 


lA 


00 


90 


0A 


98 


00 


10 


0A 


4C 


EO 


FA 


FA 


A5 


IE 


10 


F6 


03 


B9 


C2 


00 


00 


D0 


F8 


A5 


26 


91 


FC 


00 


85 


CI 


84 


EA 


EA 


EA 


A0 


41 


00 


20 


54 


FO 


00 


00 


20 


54 


FD 


00 


EA 


EA 


4C 


B0 


FO 


BF 


FE 


00 


00 


11 


86 


IC 


A6 


10 


00 


E8 


86 


ID 


A6 


IC 




90 


03 


C9 


47 


40 


02 


45 


03 


00 


30 


22 


45 


33 


00 


40 


02 


45 


33 


00 


40 


02 


45 


B3 


00 


00 


00 


22 


44 


33 


00 


00 


11 


22 


44 


44 


9A 


10 


22 


44 



: 10D8 


33 


D0 


08 


40 


09 


10 


22 


44 


: 10E0 


33 


00 


08 


40 


09 


62 


13 


78 


: 10E8 


A9 


00 


00 


21 


81 


82 


00 


00 


: 10F0 


00 


00 


59 


4D 


91 


92 


86 


4A 


: 10F8 


85 


9D 


2C 


29 


2C 


23 


28 


24 


: 1100 


59 


00 


00 


58 


24 


24 


00 


00 


: 1108 


IC 


8A 


IC 


23 


5D 


8B 


IB 


Al 


: 1110 


9D 


8A 


ID 


23 


9D 


8B 


ID 


Al 


: 1118 


00 


00 


29 


19 


AE 


69 


A8 


19 


: 1120 


23 


24 


53 


IB 


23 


24 


53 


19 


: 1128 


Al 


00 


00 


lA 


SB 


5B 


AS 


69 


: 1130 


24 


24 


AE 


AE 


A8 


AD 


29 


00 


: 1138 


00 


7C 


00 


00 


15 


9C 


60 


9C 


: 1140 


A5 


69 


29 


53 


84 


13 


34 


11 


: 1148 


A5 


69 


23 


A0 


08 


62 


5A 


48 


: 1150 


26 


62 


94 


88 


54 


44 


C8 


54 


: 1158 


68 


44 


E8 


94 


00 


00 


B4 


08 


: 1160 


84 


74 


B4 


28 


6E 


74 


F4 


CC 


: 1168 


4A 


72 


F2 


A4 


8A 


00 


00 


AA 


: 1170 


A2 


A2 


74 


74 


74 


72 


44 


68 


: 1178 


B2 


32 


B2 


00 


00 


22 


00 


00 


: 1180 


lA 


lA 


26 


26 


72 


72 


88 


C8 


: 1188 


C4 


CA 


26 


48 


44 


44 


A2 


C8 


: 1190 


3A 


3B 


52 


4D 


47 


58 


4C 


53 


: 1198 


54 


46 


48 


44 


50 


2C 


41 


42 


: 11A0 


F9 


00 


35 


F9 


00 


CC 


F8 


00 


: 11A8 


F7 


F8 


00 


56 


F9 


00 


89 


F9 


: 11B0 


00 


F4 


F9 


00 


0C 


FA 


00 


3E 


: 11B8 


FB 


00 


92 


FB 


00 


C0 


FB 


00 


: 11C0 


38 


FC 


00 


5B 


FD 


00 


8A 


FD 


: 11C8 


00 


AC 


FD 


00 


46 


F8 


00 


FF 


: 11D0 


F7 


00 


ED 


F7 


00 


00 


20 


20 


: 11D8 


20 


50 


43 


20 


20 


53 


52 


20 


: 11E0 


41 


43 


20 


58 


52 


20 


59 


52 


: 11E8 


20 


53 


50 


45 


52 


22 


20 


20 



ROM Routines 



The routines in tliis bool< use various ROM routines to function. 
Tliey are as follows: 

$AEFD: Check if the next character is a comma and skip it. 
Otherwise print SYNTAX ERROR and return to Basic. 

$AD8A: Read next expression (variable, number, etc.) into the 
FAC. 

$B7F7: Change the value in the FAC into a 16 bit integer 
(0-65535). If the number is too big then print illegal quantity error 
and return to Basic. Otherwise put the low byte of the number 
into $14 and the high byte Into $15. 

$B79E: Read the next expression in the BASIC text and put it 
as a 8 bit integer in the X register. If the number is greater than 
255 then print Illegal quantity error and return to Basic. 

$B7EB: This routine reads two expressions or numbers separated 
by a comma from the Basic text. The first is a 16 bit number 
and the second is an 8 bit number. The 16 bit number is stored 
in $14 and $15 and the 8 bit number is stored in the X register. 
If either or both of the numbers are out of their ranges then the 
program will stop and print an illegal quantity error. If the comma 
is missing a syntax error with be displayed. Both these errors 
return control to Basic. 

$E1 D4: This routine gets the file name, the device number and 
the secondary address from the Basic text. It gives an error if 
any of the above are wrong. It is used in preparation for loading, 
saving or verifying a program, as in MSAVE/MLOAD/ 
MVERIFY. 
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1. Fill 



The following routine allows you to fill an area of memory with 
a byte. It is called by the following command: 

SYS 28672,start address, end address, byte 

e.g. to fill the text screen with 'A' characters and the colour 
screen with 1 (white), type the following: 

SYS 28672,1024,2023,1 
SYS 28672,55296,56295,1 

An error will be given if any of the numbers are too big or 
negative. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 7000 .OPT P,00 

30: 7000 #» «7000 



;fill routine 



;USES VFB AND «FC 

» STORE TOP ADDRESS IN 

;828 AND 829 



90; 



7000 20 FD AE 



JSR «AEFD 
J SCAN PAST COMMA 

JSR «AD8A 



110: 



7003 20 8A AD 



;READ NUMBER AND PUT 
{INTO FAC 



140: 



7006 20 F7 B7 



JSR »B7F7 



J GET NUMBER FROM FAC 
i AND PUT IN «14 AND « 



170: 
170: 



7009 A5 14 
700B 85 FB 



LDA «14 
STA «FB 
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180: 700D A5 15 

180: 700F 85 FC 

200: 7011 20 FD AE 

220: 7014 20 8A AD 

230: 7017 20 F7 B7 

240: 701A A5 14 

240: 701C 8D 3C 03 

250: 701F A5 15 

250: 7021 8D 3D 03 

270: 7024 20 FD AE 

280: 7027 20 8A AD 

290: 702A 20 F7 B7 

300: 702D AS 15 

300: 702F F0 03 

300: 7031 4C 48 B2 

320: 7034 A5 14 

320: 7036 8D 3E 03 

330: 7039 A0 00 

340: 703B AD 3E 03 

350: 703E 91 FB 

360: 7040 20 57 70 

370: 7043 A5 FB 

370; 7045 CD 3C 03 

370: 7048 F0 03 

380: 704A 4C 39 70 

390: 704D A5 FC 

390: 704F CD 3D 03 

390: 7052 F0 0B 

400: 7054 4C 39 70 

410: 7057 E6 FB 

410: 7059 F0 01 

420: 705B 60 

430: 705C E6 FC 

430: 705E 60 

440: 705F 60 
3 7000-7060 





LDA 


»15 


• 


STA 


«FC 


> 


JSR 


«AEFD 


;SCAN PAST COMMA 




JSR 


«AD8A 




JSR 


«B7F7 




LDA 


«14 




STA 


828 




LDA 


$15 




STA 


829 


; 


JSR 


»AEFD 




JSR 


«AD8A 




JSR 


«B7F7 




LDA 


«15 




BEQ 


MORE 




J MP 


«B248 


i«B248 


IS IQANT ERROf 


MORE 


LDA 


»14 




STA 


830 


LOOP 


LDY 


tt0 




LDA 


830 




STA 


(»FB) , Y 




JSR 


ADD 




LDA 


«FB 




CMP 


828 




BEQ 


CHECK 




JMP 


LOOP 


CHECK 


LDA 


•FC 




CMP 


829 




BEQ 


FINISH 




JMP 


LOOP 


ADD 


INC 


«FB 




BEQ 


FCPLUSl 




RTS 




FCPLUSl 


INC 


«FC 




RTS 




FINISH 


RTS 
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PC SR AC XR YR SP 
. I 97FE 72 00 00 01 F6 



7000 


20 


FD 


AE 


JSR 


«AEFO 


7003 


20 


8A 


AD 


JSR 


«AD8A 


7006 


20 


F7 


B7 


JSR 


•B7F7 


7009 


A5 


14 




LOA 


»14 


700B 


85 


FB 




STA 


*FB 


700D 


AS 


15 




LDA 


«15 


700F 


85 


FC 




STA 


•FC 


70H 


20 


FD 


AE 


JSR 


«AEFD 


7014 


20 


8A 


AD 


JSR 


«AD8A 


7017 


20 


F7 


B7 


JSR 


•B7F7 


701 A 


A5 


14 




LDA 


»14 


701C 


80 


3C 


03 


STA 


«033C 


701 F 


A5 


15 




LDA 


«15 


7021 


8D 


3D 


03 


STA 


«033D 


7024 


20 


FD 


AE 


JSR 


«AEFD 


7027 


20 


8A 


AD 


JSR 


«AD8A 


702A 


20 


F7 


B7 


JSR 


•B7F7 


702D 


AS 


15 




LOA 


«15 


702F 


F0 


03 




BEQ 


«7034 


7031 


4C 


48 


B2 


J MP 


»B248 


7034 


AS 


14 




LDA 


«14 


7036 


8D 


3E 


03 


STA 


«033E 


7039 


A0 


00 




LDY 


#«00 


703B 


AD 


3E 


03 


LOA 


«033E 


703E 


91 


FB 




STA 


(«FB) , 


7040 


20 


57 


70 


JSR 


•7057 


7043 


AS 


FB 




LDA 


•FB 


7045 


CD 


3C 


03 


CMP 


•033C 


7048 


F0 


03 




BEQ 


•7040 


704A 


4C 


39 


70 


JMP 


•7039 


704D 


AS 


FC 




LOA 


•FC 


704F 


CD 


3D 


03 


CMP 


•0330 


7052 


F0 


0B 




BEQ 


•705F 


7054 


4C 


39 


70 


JMP 


•7039 


7057 


E6 


FB 




INC 


•FB 


7059 


F0 


01 




BEQ 


•70SC 



2. Move 



The following routine allows you to move an area of memory 
to another location. It has the syntax: 

SYS 24576,start,finish, destination address. 

e.g. to move the contents of the screen to 16384 type the 
following: 

SYS 24576,1024,2023,16384 

The three numbers or variables must be no bigger than 65535. 
If they are bigger then an error will be printed and control will 
return to Basic. 



PAL (C)1979 BRAD TEMPLETON 
2 

20: 6000 .OPT P,00 

30: 6000 «6000 



; ROUTINE TO MOVE ONE 
I AREA OF 

; MEMORY TO ANOTHER 



;SCAN COMMA 



90: 

100: 

110: 

120: 

130: 

140: 

150: 



6000 20 FD AE 
6003 20 8A AD 
6006 20 F7 B7 
6009 A5 14 



JSR «AEFD 

JSR »AD8A 

JSR »B7F7 

LDA «14 



600B 8D 78 60 
600E A5 IS 



STA TEMP 
LDA «15 



6010 8D 79 60 



STA TEMP+1 



169: 



6013 20 FD AE 



JSR «AEFD 



30 



170: 


6016 


20 


8A 


AD 


JSR 


«AD8A 


180: 


6019 


20 


F7 


B7 


JSR 


*B7F7 


190: 


601C 


A5 


14 




LDA 


«14 


200: 


601 E 


8D 


7A 


60 


STA 


TEMP+2 


210: 


6021 


A5 


15 




LDA 


«15 


220: 


6023 


8D 


7B 


60 


STA 


TEMP+3 


225: 


6026 


20 


FD 


AE 


JSR 


«AEFD 


230: 


6029 


20 


8A 


AD 


JSR 


»AD8A 


240: 


602C 


20 


F7 


B7 


JSR 


*B7F7 


250: 


602F 


A5 


14 




LDA 


«14 


260: 


6031 


8D 


7C 


60 


STA 


TEMP-t-4 


270: 


6034 


A5 


15 




LDA 


«15 


280: 


6036 


8D 


7D 


60 


STA 


TEMP+5 


291 : 


6039 


AD 


78 


f 

60 


LDA 


TEMP 


291 : 


603C 


85 


FB 




STA 


«FB 


292: 


603E 


AD 


79 


60 


LDA 


TEMP+1 


292: 


6041 


85 


FC 




STA 


*FC 


293: 


6043 


AD 


7C 


60 


LDA 


TEMP+4 


293: 


6046 


85 


FD 




STA 


«FD 


294: 


6048 


AD 


7D 


60 


LDA 


TEMP+5 


294: 


604 B 


85 


FE 




STA 


«FE 


300: 


6040 


A0 


00 




LDY 


#0 


310: 


604F 


Bl 


FB 


LOOP 


LDA 


<«FB) .'r 


320: 


6051 


91 


FD 




STA 


(«FD) 


330: 


6053 


20 


60 


60 


JSR 


ADDONE 


340: 


6056 


A5 


FB 




LDA 


«FB 


350: 


6058 


CD 


7A 


60 


CMP 


TEMP+2 


360: 


605B 


F0 


10 




BEQ 


CHECK 


370: 


605D 


4C 


4F 


60 


J MP 


LOOP 



I 

I 



400: 


6060 


E6 


FB 


ADDONE 


INC 


»FB 


410: 


6062 


D0 


02 




BNE 


MORE 


420: 


6064 


E6 


FC 




INC 


•FC 


430: 


6066 


E6 


FD 


MORE 


INC 


«FD 


440: 


6068 


D0 


02 




BNE 


RETURN 


450: 


606A 


E6 


FE 




INC 


«FE 


460: 


606C 


60 




RETURN 


RTS 





I 
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490: 606D AS FC CHECK LDA «FC 

500: 606F CD 7B 60 CMP TEMP+3 

510: 6072 F0 03 BEQ FIN 

520: 6074 4C 4F 60 J MP LOOP 

■ 
> 

550: 6077 FIN » * 

555: 6077 60 RTS 
560: 6078 TEMP » * 

3 6000-6078 

READY. 



B-X- 

PC SR AC XR YR SP 
. } 97FE 72 00 00 01 F6 



6000 


20 


FD 


AE 


JSR 


«AEFD 


6003 


20 


8A 


AD 


JSR 


«AD8A 


6006 


20 


F7 


B7 


JSR 


»B7F7 


6009 


A5 


14 




LDA 


«14 


600B 


8D 


78 


60 


STA 


«6078 


600E 


A5 


15 




LDA 


«1S 


6010 


8D 


79 


60 


STA 


«6079 


6013 


20 


FD 


AE 


JSR 


»AEFD 


6016 


20 


8A 


AD 


JSR 


«AD8A 


6019 


20 


F7 


B7 


JSR 


«B7F7 


601 C 


A5 


14 




LDA 


«14 


601E 


8D 


7A 


60 


STA 


«607A 


6021 


A5 


15 




LDA 


«15 


6023 


8D 


7B 


60 


STA 


«607B 


6026 


20 


FD 


AE 


JSR 


«AEFD 


6029 


20 


8A 


AD 


JSR 


«AD8A 


602C 


20 


F7 


B7 


JSR 


•B7F7 


602F 


AS 


14 




LDA 


«14 


6031 


8D 


7C 


60 


STA 


«607C 


6034 


AS 


IS 




LDA 


«15 


6036 


8D 


7D 


60 


STA 


«607D 
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6039 


AD 


78 


60 


LDA 


«6078 


603C 


85 


FB 




STA 


«FB 


603E 


AO 


79 


60 


LDA 


•6079 


6041 


85 


FC 




STA 


»FC 


6043 


AD 


7C 


60 


LDA 


«607C 


6046 


85 


FD 




STA 


«FD 


6048 


AD 


7D 


60 


LDA 


«607D 


604B 


85 


FE 




STA 


«FE 


604D 


A0 


00 




LDY 


tt»00 


604F 


Bl 


FB 




LDA 


<»FB) , Y 


60S1 


91 


FD 




STA 


<»FD) , Y 


6053 


20 


60 


60 


JSR 


«6060 


6096 


A5 


FB 




LDA 


«FB 


6058 


CD 


7A 


60 


CMP 


«607A 


605B 


F0 


10 




BEQ 


«606D 


605D 


4C 


4F 


60 


JMP 


«604F 


6060 


E6 


FB 




INC 


»FB 


6062 


D0 


02 




BNE 


«6066 


6064 


E6 


FC 




INC 


«FC 


6066 


E6 


FD 




INC 


«FD 


6068 


D0 


02 




BNE 


«606C 


606A 


E6 


FE 




INC 


»FE 


606C 


60 






RTS 




606D 


A5 


FC 




LDA 


«FC 


606F 


CD 


7B 


60 


CMP 


*607B 


6072 


F0 


03 




BES 


•6077 


6074 


4C 


4F 


60 


JMP 


«604F 


6077 


60 






RTS 
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3. Pause 



The following routine allows a listing to be stopped at any tin^ie. 
It will in fact stop any output to the screen that is printed. It 
works by interrupting the character out routine and check to 
see if the shift key has been pressed. If it has then it loops until 
the key has been released. 

The syntax is SYS 960. To disable it press run/stop and restore 
simultaneously. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


03C0 










.OPT 


P,00 


30: 


03C0 










*■ 


960 


50: 


05C0 


A9 


CB 




I 


LDA 


«<MAIN 


60: 


03C2 


8D 


26 


03 




STA 


806 


70: 


03C5 


A9 


03 






LDA 


tt>MAIN 


80: 


03C7 


8D 


27 


03 




STA 


807 


90: 


03CA 


60 








RTS 




110: 


03CB 


48 






i 

MAIN 


PHA 




110: 


03CC 


8A 








TXA 




110: 


03CD 


48 








PHA 




110: 


03CE 


98 








TYA 




110: 


03CF 


48 








PHA 




120: 


03D0 


AD 


80 


02 


LOOP 


LDA 


653 


130: 


03D3 


C9 


01 






CMP 


#1 


140: 


03D5 


F0 


F9 






BEQ 


LOOP 


160: 


03D7 


68 








PLA 




160: 


03D8 


A8 








TAY 




160: 


03D9 


68 








PLA 




160: 


03DA 


AA 








TAX 
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160: 03DB 68 

170: 03DC 4C CA Fl 

303C0-03I)F 



PLA 

JMP «F1CA 



READY. 



PC SR AC XR YR SP 
. I 97FE 72 00 00 01 F6 



03C0 


A9 


CB 




LDA 


««CB 


03C2 


8D 


26 


03 


STA 


40326 


03C5 


A9 


03 




LDA 


tt«03 


03C7 


8D 


27 


03 


STA 


40327 


03CA 


60 






RTS 




03CB 


48 






PHA 




03CC 


8A 






TXA 




03CD 


48 






PHA 




03CE 


98 






TYA 




03CF 


48 






PHA 




03D0 


AD 


8D 


02 


LDA 


«028D 


0303 


C9 


01 




CMP 


«»01 


03D9 


F0 


F9 




BEQ 


«03D0 


03D7 


68 






PLA 




03D8 


A8 






TAY 




03D9 


68 






PLA 




03DA 


AA 






TAX 




03DB 


68 






PLA 




03DC 


4C 


CA 


Fl 


JMP 


»F1CA 
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4. Function keys 



The following program allows you to put commands onto the 
function keys. It uses the IRQ interrupt to scan the keyboard. 
There are listings in PAL and Supermen format to see how the 
program works, but it is best to enter the program as the Basic 
loader which follows. Any of the three ways works equally well 
but it is easier to change the text to go on the function keys 
from the Basic listing. 

To turn the keys on type SYS 49152 (for the Basic listing , SYS 
24576 for the other two). To turn them off press run/stop and 
restore. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


6000 










.OPT 


P,00 


30: 


6000 








• 


*» 


96000 












{ROUTINE TO 


SETUP 












{FUNCTION KEYS 
• 


80: 


6000 


78 






> 


SEI 




90: 


6001 


A9 


0D 






LDA 


«<MAIN 


100: 


6003 


8D 


14 


03 




STA 


788 


110: 


6006 


A9 


60 






LDA 


M>MAIN 


120: 


6008 


8D 


15 


03 




STA 


789 


130: 


600B 


58 








CLI 




140: 


600C 


60 






• 

> 


RTS 




170: 


600D 


48 






■ 

1 

MAIN 


PHA 




180: 


600E 


8A 








TXA 




190: 


600F 


48 








PHA 
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200: 


6010 


98 






210: 


6011 


48 






220: 


6012 


A5 


C5 




230: 


6014 


C5 


FB 




240: 


6016 


F0 


52 




250: 


6018 


85 


FB 




260: 


601A 


C9 


03 




270: 


601C 


D0 


08 




290: 


601E 


A9 


30 




300: 


6020 


8D 


72 


60 


310: 


6023 


4C 


47 


60 


330: 


6026 


C9 


04 




340: 


6028 


D0 


08 




350: 


602A 


A9 


00 




360: 


602C 


8D 


72 


60 


370: 


602F 


4C 


47 


60 


390: 


6032 


C9 


05 




400: 


6034 


D0 


08 




420: 


6036 


A9 


10 




430: 


6038 


80 


72 


60 


440: 


603B 


4C 


47 


60 


460: 


603E 


C9 


06 




470: 


6040 


D0 


28 




480: 


6042 


A9 


20 




490: 


6044 


8D 


72 


60 


510: 


6047 


AO 


80 


02 


520: 


604A 


C9 


01 




530: 


604C 


00 


09 




550: 


604E 


AO 


72 


60 


560: 


6051 


18 






560: 


6052 


69 


08 




570: 


6054 


80 


72 


60 


590: 


6057 


A2 


00 





TYA 
PHA 

LOA «C5 

CMP *FB 

BEQ LOOP 

STA «FB 

CMP #3 

BNE LOOPl 

; 

LOA «$30 

STA C100 

JMP PRINT 

; 

LOOPl CMP #4 

BNE L00P2 

LOA «0 

STA C100 

JMP PRINT 

■ 

t 

L00P2 CMP «5 

BNE L00P3 

t 

I 

LOA «»10 

STA C100 

JMP PRINT 

» 

LOOP3 CMP #6 

BNE LOOP 

LOA #«20 

STA C100 

■ 

PRINT LOA *028O 

CMP #1 

BNE PUTON 

■ 

> 

LOA CI 00 
CLC 

AOC #8 

STA C100 

I 

PUTON LOX «0 
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600: 


6059 


AC 


72 


60 




610: 


605C 


B9 


73 


60 


LOP 


620: 


605F 


9D 


77 


02 




630: 


6062 


E8 








640: 


6063 


C8 








650: 


6064 


E0 


08 






660: 


6066 


D0 


F4 






670: 


6068 


86 


C6 






680: 


606A 


68 






LOOP 


690: 


606B 


A8 








700: 


606C 


68 








710: 


606D 


AA 








720: 


606E 


68 








730: 


606F 


4C 


31 


EA 




730: 


6072 


00 






5 

C100 


760: 


6073 


4C 


49 


53 


C101 


760: 


6077 


0D 


04 


04 




770: 


607B 


52 


55 


4E 




770: 


607E 


0D 


04 


04 




780: 


6083 


50 


52 


49 




780: 


6088 


04 


04 


04 




790: 


608B 


54 


48 


45 




790: 


608F 


04 


04 


04 




800: 


6093 


4C 


4F 


41 




800: 


6097 


04 


04 


04 




810: 


609B 


53 


41 


56 




810: 


609F 


04 


04 


04 




820: 


60A3 


56 


45 


52 




820: 


60A9 


04 


04 






830: 


60AB 


47 


4F 


54 




830: 


60AF 


04 


04 


04 




3 6000- 


60B3 











READY. 



LDY C100 
LOA C101,Y 
ST A «0277,X 
I NX 
INY 

CPX #«08 

BNE LOP 

STX «C6 

PLA 

TAY 

PLA 

TAX 

PLA 

JMP «EA31 

.BYT 
.ASC "LIST" 
.BYT 13,4,4,4 
.ASC "RUN" 
.BYT 13,4,4,4,4 
.ASC "PRINT" 
.BYT 4,4,4 
.ASC "THEN" 
.BYT 4,4,4,4 
.ASC "LOAD" 
.BYT 4,4,4,4 
.ASC "SAVE" 
.BYT 4,4,4,4 
.ASC "VERIFY" 
.BYT 4,4 
.ASC "GOTO" 
.BYT 4,4,4,4 
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PC SR AC XR YR SP 
. ; 97FE 72 00 00 01 F6 



6000 


78 






SEI 




6001 


A9 


0D 




LDA 


#«0O 


6003 


8D 


14 


03 


STA 


«0314 


6006 


A9 


60 




LOA 


tt«60 


6008 


8D 


15 


03 


STA 


«0315 


600B 


58 






CLI 




600C 


60 






RTS 




600D 


48 






PHA 




600E 


8A 






TXA 




600F 


48 






PHA 




6010 


98 






TYA 




6011 


48 






PHA 




6012 


AS 


C5 




LDA 


»C5 


6014 


CS 


FB 




CMP 


«FB 


6016 


F0 


52 




BEQ 


«606A 


6018 


85 


FB 




STA 


«FB 


601A 


C9 


03 




CMP 


#«03 


601C 


D0 


08 




BNE 


»6026 


601E 


A9 


30 




LOA 


M«30 


6020 


8D 


72 


60 


STA 


«6072 


6023 


4C 


47 


60 


JMP 


«6047 


6026 


C9 


04 




CMP 


tt«04 


6028 


D0 


08 




BNE 


«6032 


602A 


A9 


00 




LDA 


M»00 


602C 


8D 


72 


60 


STA 


«6072 


602F 


4C 


47 


60 


JMP 


•6047 


6032 


C9 


05 




CMP 


#»05 


6034 


D0 


08 




BNE 


»603E 


6036 


A9 


10 




LDA 


tt»10 


6038 


8D 


72 


60 


STA 


«6072 


603B 


4C 


47 


60 


JMP 


«6047 


603E 


C9 


06 




CMP 


tt«06 


6040 


D0 


28 




BNE 


«606A 


6042 


A9 


20 




LDA 


««20 


6044 


80 


72 


60 


STA 


«6072 


6047 


AD 


80 


02 


LDA 


«028O 


604A 


C9 


01 




CMP 


#«01 



604C 


D0 


09 




BNE 


«6057 




6104E 


AD 


72 


60 


LDA 


«6072 




6051 


18 






CLC 






6052 


69 


08 




ADC 


#»08 




6054 


8D 


72 


60 


STA 


«6072 




6057 


A2 


00 




LDX 


#«00 




6059 


AC 


72 


60 


LDY 


«6072 




605C 


B9 


73 


60 


LDA 


«6073, 


Y 


605F 


9D 


77 


02 


STA 


•0277, 


X 


6062 


E8 






INX 






6063 


C8 






INY 






6064 


E0 


08 




CPX 


#«08 




6066 


D0 


F4 




BNE 


«605C 




6068 


86 


C6 




STX 


«C6 




606A 


68 






PLA 






606B 


A8 






TAY 






606C 


68 






PLA 






606D 


AA 






TAX 






606E 


68 






PLA 






606F 


4C 


31 


EA 


JMP 


«EA31 





:6072 00 4C 49 53 54 0D 04 04 
:607A 04 52 55 4E 0D 04 04 04 
:6082 04 50 52 49 4E 54 04 04 
:608A 04 54 48 45 4E 04 04 04 
:6092 04 4C 4F 41 44 04 04 04 
:609A 04 53 41 56 45 04 04 04 
:60A2 04 56 45 52 49 46 59 04 
:60AA 04 47 4F 54 4F 04 04 04 
:60B2 04 00 00 00 00 00 FF 00 



10 DATA 120,169,16,141,20,3,169,192,141, 
2 1 , 3 , 88 , 96 , 234 , 234 , 234 , 72 , 1 38 , 72 , 1 52 , 72 
15 DATA 165,197,197,251,240,81,133,251,2 
01,3,208,8, 169,48, 141,0, 193,76,74, 192 
20 DATA201,4,208,8, 169,0, 141,0, 193,76,74 
, 192,201 ,5,208,8, 169, 16, 141,0, 193,76,74 
25 DATA 192,201,6,208,39,169,32,141,0,19 
3, 173, 141,2,201, 1,208,8, 173,0, 193, 105,8 
30 DATA141,0, 193, 162,0, 172,0, 193, 185, 1, 1 
93, 157, 1 19,2,232,200,224,8,208,244, 134 
35 DATA198, 104, 168, 104, 170, 104,76,49,234 

40 F0RA=49152T049267 : READB : POKEA, B: NEXT 
50 FORA=0TO7: READK«: F0RB=1T08: L=ASC ( (MID 
«<K«,B, 1 ) ) ) : IFL=95THENL=13 
55 IFL=47THENL=4 

60 POKE49409+ < A*8 ) +B , L : NEXT : NEXT : P0KE494 

09, 4:SYS49152 

70 DATA"LISTfr///'' 

80 DATA"PRINT///" 

90 DATA"RUNt////" 

100 DATA"THEN////" 

110 DATA "LOAD////" 

120 DATA"SAVE//// " 

130 DATA"VERIFY//» 

140 DATA"GOTO////» 

READY. 
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5. IRQ clock 



The clock routine is updated by tlie IRQ interrupt which is called 
by the computer every 50th of a second. The routine used to 
print line numbers for BASIC is used to print the time do byte 
in X and high byte in A). It is not very good for using when typing 
in a program as the cursor is always at the top of the screen 
but it works fine in a program. The syntax to set the clock is 
as follows: 

SYS 28672,hours,minutes. 

The clock is in 24 hour format, so remember to enter the time 
in 24 hour format. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 7000 -OPT P,00 

30: 7000 *» »7000 

; 

{DISPLAYS A CLOCK AT 
J TOP LEFT 
;0F SCREEN 
I 

;T0 SET TYPE 

; 

;SYS 24576, HOURS, MINS 
J 

; SECONDS ASSUMED ZERO 

; 



150: 


7000 


20 


FD 


AE 


JSR 


«AEFD 


160: 


7003 


20 


9E 


B7 


JSR 


«B79E 


170: 


7006 


8A 






TXA 




180: 


7007 


C9 


18 




CMP 


#24 


190: 


7009 


B0 


14 




BCS 


IQERR 
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200: 


700B 


80 


B7 


70 


m 


STA 


HOUR 


220: 


700E 


20 


FD 


AE 


) 


JSR 


*AEFD 


230: 


7011 


20 


9E 


B7 




JSR 


SB79E 


240: 


7014 


8A 








TXA 
















P MO 




260: 


7017 


B0 


06 






BCS 


IQERR 




70 1 O 


o u 






• 


C5TA 


M T Kll ITC 
Pll INU 1 C 


£.7X1 m 


/y) X u 






/nt 


f 


JPlF 


SETUP 


310: 


701F 


4C 


48 


B2 


; 

IQERR 


JMP 


«B248 


330: 


7022 


78 






; 

SETUP 


SEI 




340: 


7023 


A9 


3F 






LDA 


tt<MAIN 


350: 


7025 


8D 


14 


03 




STA 


788 


360: 


7028 


A9 


70 






LDA 


M>MAIN 


370: 


702A 


8D 


15 


03 




STA 


789 


380: 


702D 


AD 


B7 


70 




LDA 


HOUR 


400: 


7030 


AD 


B8 


70 




LDA 


MINUTE 


420: 


7033 


A9 


00 






LDA 


#0 


430: 


7035 


8D 


B9 


70 




STA 


SECOND 


450: 


7038 


A9 


00 






LDA 


M0 


450: 


703A 


8D 


BA 


70 




STA 


COUNTER 


460: 


703D 


58 








CLI 




470: 


703E 


60 








RTS 





500: 


703F 


EE 


BA 


70 


MAIN 


INC 


COUNTER 


510: 


7042 


AD 


BA 


70 




LDA 


COUNTER 


520: 


7045 


C9 


3C 






CMP 


#60 


530: 


7047 


B0 


03 






BCS 


CHANGE 


550: 


7049 


4C 


31 


EA 


\ 

m 


JMP 


»EA31 


570: 


704C 


A9 


00 




f 

CHANGE 


LDA 




580: 


704E 


8D 


BA 


70 


■ 


STA 


COUNTER 


600: 


7051 


EE 


B9 


70 


> 


INC 


SECOND 


610: 


7054 


AD 


B9 


70 




LDA 


SECOND 


620: 


7057 


C9 


3C 






CMP 


tt60 



630: 7059 B0 03 BCS MINUTECHANGE 

■ 

f 



650: 


705B 


4C 


8D 


70 


■ 


JMP 


PRINT 


670: 


705E 


A9 


00 




MINUTECHALDA 


«0 


OOJC • 


y vox/ 


an 




70 




STA 


SECDND 


690: 


7063 


EE 


B8 


70 




INC 


MINUTE 






AD 


B8 


70 




LDA 


MINUTE 


710: 


7069 


C9 


3C 






CMP 


#60 


720: 


706B 


B0 


03 






BCS 


HOURCHANGE 


740: 


706D 


4C 


8D 


70 




JMP 


PRINT 


760: 


7070 


A9 


00 




HOURCHANGLDA 


«0 




7072 


8D 


B8 


70 




STA 


MINUTE 


780: 


7075 


EE 


B7 


70 




INC 


HOUR 


790: 


7078 


AD 


B7 


70 




LDA 


HOUR 


800: 


707B 


C9 


18 






CMP 


M24 


810: 


707D 


90 


0E 






BCC 


PRINT 






A9 
n ' 






; 


LDA 


4t0 


840: 


7081 


8D 


B9 


70 




STA 


SECOND 


850: 


7084 


8D 


B8 


70 




STA 


MINUTE 


OOXf ■ 


70R7 




B7 


70 




STA 


HOUR 


870: 


708A 


4C 


31 


EA 


• 


JMP 


$EA31 


890: 


7031) 


A9 


13 




> 

PRINT 


LDA 


♦♦"I 


rX/Kf ■ 


708 F 


20 


D2 


FF 




JSR 


*FFD2 


920: 


7092 


A9 


00 




> 


LDA 


4*0 


Q^O ■ 

~ wjv ■ 


7094 


AE 


B7 


70 




LDX 


HOUR 


940: 


7097 


20 


CD 


BD 


■ 


JSR 


«6DCD 


960: 


709A 


A9 


3A 






LDA 


#" : 










FF 




JSR 


$FFD2 


990: 


709F 


A9 


00 




5 


LDA 


#0 


1000: 


70A1 


AE 


B8 


70 




LDX 


MINUTE 


1010: 


70A4 


20 


CD 


BD 


• 


JSR 


«BDCD 


1030: 


70A7 


A9 


3A 




> 


LDA 


«" : 



44 



1040: 


70A9 


20 


D2 


FF 




JSR 


*FFD2 


1060: 


70AC 


A9 


00 




; 


LDA 


#0 


1070: 


70AE 


AE 


B9 


70 








1080: 


70B1 


20 


CD 


BD 




JSR 


SBDCD 


1090: 


70B4 


4C 


31 


EA 




JMP 


«EA31 


1110: 


70B7 


00 






5 

HOUR 


.BYT 





1120: 


70B8 


00 






MINUTE 


.BYT 





1130: 


70B9 


00 






SECOND 


.BYT 





1140: 


70BA 


00 






COUNTER 


.BYT 





3 7000- 


70BB 















READY. 



PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



7000 


20 


FD 


AE 


JSR 


»AEFD 


7003 


20 


9E 


B7 


JSR 


«B79E 


7006 


8A 






TXA 




7007 


C9 


18 




CMP 


t»«18 


7009 


B0 


14 




BCS 


♦70 IF 


700B 


8D 


B7 


70 


STA 


»70B7 


700E 


20 


FD 


AE 


JSR 


»AEFD 


7011 


20 


9E 


B7 


JSR 


•B79E 


7014 


8A 






TXA 




7013 


C9 


3C 




CMP 


tt«3C 


7017 


B0 


06 




BCS 


*701F 


7019 


8D 


B8 


70 


STA 


«70B8 


701C 


4C 


22 


70 


JMP 


«7022 


701F 


4C 


48 


B2 


JMP 


»B248 


7022 


78 






SEI 




7023 


A9 


3F 




LDA 


t»«3F 


7025 


8D 


14 


03 


STA 


«0314 



45 



7028 


A9 


70 




LDA 


#•70 


702A 


8D 


15 


03 


STA 


«0315 


702D 


AD 


B7 


70 


LDA 


»70B7 


7030 


AD 


B8 


70 


LDA 


«70B8 


7033 


A9 


00 




LDA 


M«00 


7035 


8D 


B9 


70 


STA 


»70B9 


7038 


A9 


00 




LDA 


H«00 


703A 


8D 


BA 


70 


STA 


«70BA 


703D 


58 






CLI 




703E 


60 






RTS 




703F 


EE 


BA 


70 


INC 


«70BA 


7042 


AD 


BA 


70 


LDA 


*70BA 


7045 


C9 


3C 




CMP 


tt»3C 


7047 


B0 


03 




BCS 


»704C 


7049 


4C 


31 


EA 


J MP 


»EA31 


704C 


A9 


00 




LDA 


#«00 


704E 


8D 


BA 


70 


STA 


«70BA 


7051 


EE 


B9 


70 


INC 


«70B9 


7054 


AD 


B9 


70 


LDA 


«70B9 


7057 


C9 


3C 




CMP 


#«3C 


7059 


B0 


03 




BCS 


«705E 


705B 


4C 


8D 


70 


JMP 


«708D 


705E 


A9 


00 




LDA 


#»00 


7060 


8D 


B9 


70 


STA 


«70B9 


7063 


EE 


B8 


70 


INC 


«70B8 


7066 


AD 


B8 


70 


LDA 


«70B8 


7069 


C9 


3C 




CMP 


«»»3C 


706B 


B0 


03 




BCS 


»7070 


706D 


4C 


8D 


70 


JMP 


«708D 


7070 


A9 


00 




LDA 


#«00 


7072 


8D 


B8 


70 


STA 


«70B8 


7075 


EE 


B7 


70 


INC 


«70B7 


7078 


AD 


B7 


70 


LDA 


•70B7 


707B 


C9 


18 




CMP 


#«18 


707D 


90 


0E 




BCC 


«708D 


707F 


A9 


00 




LDA 


tt$00 


7081 


8D 


B9 


70 


STA 


»70B9 


7084 


8D 


B8 


70 


STA 


«70B8 


7087 


8D 


B7 


70 


STA 


S70B7 


708A 


4C 


31 


EA 


JMP 


«EA31 


708D 


A9 


13 




LDA 


tt»13 



7C8F 


20 


D2 


FF 


JSR 


»FF02 


7092 


A9 


00 




LOA 


tt»00 


7094 


AE 


B7 


70 


LDX 


*70B7 


7097 


20 


CO 


60 


JSR 


«BOCD 


709A 


A9 


3A 




LDA 


tt«3A 


709C 


20 


D2 


FF 


JSR 


•FF02 


709F 


A9 


00 




LDA 


tt»00 


70A1 


AE 


B8 


70 


LOX 


«70B8 


70A4 


20 


CD 


BO 


JSR 


«BOCO 


70A7 


A9 


3A 




LDA 


tt»3A 


70A9 


20 


D2 


FF 


JSR 


«FFD2 


70AC 


A9 


00 




LDA 


tt»00 


70AE 


AE 


B9 


70 


LOX 


«70B9 


70B1 


20 


CO 


BO 


JSR 


»BDCO 


70B4 


4C 


31 


EA 


J MP 


«EA31 


70B7 


00 






BRK 




70B8 


00 






BRK 




70B9 


00 






BRK 




70BA 


00 






BRK 





6. Pixel scroll left 

The following routine scrolls the screen to the left by one pixel 
every time that it is called. 

To scroll the screen one pixel to the left type SYS 4096. 



PAL 


<C) 1979 


BRAD TEMPLETON 






2 

20: 


1000 










.OPT 


P,00 


30: 


1000 










*■ 


91000 


40: 


1000 


AD 


16 


D0 




LDA 


53270 


50: 


1003 


29 


F8 






AND 


#248 


60: 


1005 


18 








CLC 




70: 


1006 


6D 


5B 


10 




ADC 


BYTE 


80: 


1009 


8D 


16 


D0 




STA 


53270 


90: 


100C 


CE 


5B 


10 




DEC 


BYTE 


100: 


100F 


AD 


5B 


10 




LDA 


BYTE 


110: 


1012 


C9 


FF 






CMP 


#»FF 


120: 


1014 


F0 


01 






BEQ 


RESET 


130: 


1016 


60 








RTS 




140: 


1017 


AD 


16 


D0 


RESET 


LDA 


53270 


140: 


101A 


29 


F8 






AND 


#248 


140: 


101C 


18 








CLC 




140: 


101D 


69 


07 






ADC 


#7 


140: 


101F 


8D 


16 


D0 




STA 


53270 


150: 


1022 


A9 


07 






LDA 


#7 


150: 


1024 


8D 


5B 


10 




STA 


BYTE 


160: 


1027 


20 


2B 


10 




JSR 


CHARSCROLL 


170: 


102 A 


60 








RTS 




180: 


102B 


A9 


06 




CHARSCROLLDA 


#6 


190: 


102D 


8D 


44 


03 




STA 


«0344 


200: 


1030 


A2 


00 






LDX 


#0 


210: 


1032 


A0 


00 






LDY 


#0 


220: 


1034 


6D 


01 


04 


LOOP 


LDA 


$0401, X 



48 



230: 


1037 


9D 


00 


04 


STA 


«0400, 


X 


240: 


103 A 


BD 


Fl 


04 


LDA 


»04F1, 


X 


250: 


103D 


9D 


F0 


04 


STA 


»04F0, 


X 


260: 


1040 


BD 


El 


05 


LDA 


«05E1, 


X 


270: 


1043 


9D 


E0 


05 


STA 


905E0, 


X 


280: 


1046 


BD 


Dl 


06 


LDA 


«06D1, 


X 


290: 


1049 


9D 


D0 


06 


STA 


«06O0, 


X 


300: 


104C 


E8 






I NX 






310: 


104D 


C8 






INY 






320: 


104E 


C0 


27 




CPY 


#*27 




330: 


1050 


D0 


E2 




6NE 


LOOP 




340: 


1052 


E8 






I NX 






350: 


1053 


A0 


00 




LDY 


#0 




360: 


1055 


CE 


44 


03 


DEC 


«0344 




370: 


1058 


D0 


DA 




BNE 


LOOP 




380: 


105 A 


60 






RTS 






390: 


105B 


07 




BYTE 


.BYTE7 




1 1000- 


105C 















READY. 



PC SR AC XR YR SP 
. 5 97FE 72 00 00 01 F6 



1000 


AD 


16 


D0 


LDA 


«D016 


1003 


29 


F8 




AND 


tt«F8 


1005 


18 






CLC 




1006 


6D 


5B 


10 


ADC 


«105B 


1009 


8D 


16 


D0 


STA 


«D016 


100C 


CE 


56 


10 


DEC 


«105B 


100F 


AD 


5B 


10 


LDA 


«105B 


1012 


C9 


FF 




CMP 


♦»«FF 


1014 


F0 


01 




BEQ 


«1017 


1016 


60 






RTS 




1017 


AD 


16 


D0 


LDA 


«D016 


101A 


29 


F8 




AND 


tt«F8 



49 



101C 


18 






CLC 






101D 


69 


07 




ADC 


tt*07 




101F 


8D 


16 


00 


STA 


410016 




1022 


A9 


07 




LDA 


M$07 




1024 


80 


5B 


10 


STA 


«105B 




1027 


20 


2B 


10 


JSR 


«102B 




102A 


60 






RTS 






102B 


A9 


06 




LDA 


tt«06 




102D 


8D 


44 


03 


STA 


40344 




1030 


A2 


00 




LDX 


tt«00 




1032 


A0 


00 




LDY 


tt«00 




1034 


BD 


01 


04 


LDA 


*0401 , 


X 


1037 


9D 


00 


04 


STA 


40400, 


X 


103A 


BD 


Fl 


04 


LDA 


904F1 , 


X 


103D 


9D 


F0 


04 


STA 


«04F0, 


X 


1040 


BO 


El 


05 


LDA 


«05E 1 , 


X 


1043 


90 


E0 


05 


STA 


405E0I 


X 


1046 


BD 


01 


06 


LDA 


40601 , 


X 


1049 


90 


00 


06 


STA 


40600, 


X 


104C 


E8 






I NX 






104D 


C8 






I NY 






104E 


C0 


27 




CPY 


tt427 




1050 


00 


E2 




BNE 


41034 




1052 


E8 






I NX 






1053 


A0 


00 




LDY 


tt400 




1055 


CE 


44 


03 


DEC 


40344 




1058 


00 


DA 




BNE 


41034 




105A 


60 






RTS 






105B 


07 






??? 







7. Pixel scroll right 

The following routine scrolls the screen to the right by one pixel. 
To scroll the screen by one pixel to the right type SYS 4096. 



PAL (C)1979 BRAD TEMPLETON 
2 



20: 


1000 










• OPT 


P,00 


30: 


1000 










#" 


»1000 


40: 


1000 


AD 


16 


D0 




LDA 


53270 


40: 


1003 


29 


F8 






AND 


tt248 


50: 


1005 


18 








CLC 




50: 


1006 


6D 


C9 


10 




ADC 


BYTE 


60: 


1009 


8D 


16 


D0 




STA 


53270 


70: 


100C 


EE 


C9 


10 




INC 


BYTE 


60: 


100F 


AD 


C9 


10 




LDA 


BYTE 


90: 


1012 


C9 


08 






CMP 


4*8 


100: 


1014 


F0 


01 






BEQ 


RESET 


110: 


1016 


60 








RTS 




120: 


1017 


A9 


00 




RESET 


LDA 


M0 


120: 


1019 


8D 


C9 


10 




STA 


BYTE 


130: 


101C 


AD 


16 


D0 




LDA 


53270 


140: 


101F 


29 


F8 






AND 


tt248 


150: 


1021 


8D 


16 


D0 




STA 


53270 


160: 


1024 


20 


28 


10 




JSR 


CHARSCROLL 


170: 


1027 


60 








RTS 




180: 


1028 


A2 


26 




CHARSCROLLDX 


tt38 


190: 


102 A 


BD 


00 


04 


LOOP 


LDA 


1024, X 


190: 


i02D 


9D 


01 


04 




STA 


1025, X 


200: 


1030 


BD 


28 


04 




LDA 


1024-t-40,X 


200: 


1033 


9D 


29 


04 




STA 


1025+40, X 


210: 


1036 


BD 


50 


04 




LDA 


1024+80, X 


210: 


1039 


9D 


51 


04 




STA 


1025+80, X 


220: 


103C 


BD 


78 


04 




LDA 


1024+120, X 



51 



220: 


103F 


9D 


79 


04 


STA 


1025+120, 


X 


230: 


1042 


BD 


A0 


04 


LDA 


1024+160, 


X 


230: 


1045 


9D 


Al 


04 


STA 


1025+160, 


X 


240: 


1048 


BO 


C8 


04 


LDA 


1024+200, 


X 


240: 


104B 


9D 


C9 


04 


STA 


1025+200, 


X 


250: 


104E 


BD 


F0 


04 


LDA 


1024+240, 


X 


250: 


1051 


9D 


Fl 


04 


STA 


1025+240 


X 


260: 


1054 


BD 


18 


05 


LDA 


1024+280 


X 


260: 


1057 


9D 


19 


05 


STA 


1025+280 


X 


270: 


105A 


BD 


40 


05 


LDA 


1024+320 


X 


270: 


105D 


9D 


41 


05 


STA 


1025+320, 


X 


280: 


1060 


BD 


68 


05 


LDA 


1024+360 


X 


280: 


1063 


9D 


69 


05 


STA 


1025+360, 


X 


290: 


1066 


BD 


90 


05 


LDA 


1024+400, 


X 


290: 


1069 


9D 


91 


05 


STA 


1025+400, 


X 


300: 


106C 


BD 


B8 


05 


LDA 


1024+440, 


X 


300: 


106F 


9D 


B9 


05 


STA 


1025+440, 


X 


310: 


1072 


BD 


E0 


05 


LDA 


1024+480, 


X 


310: 


1075 


9D 


El 


05 


STA 


1025+480, 


X 


320: 


1078 


BD 


08 


06 


LDA 


1024+520, 


X 


320: 


107B 


9D 


09 


06 


STA 


1025+520, 


X 


330: 


107E 


BD 


30 


06 


LDA 


1024+560, 


X 


330: 


1081 


9D 


31 


06 


STA 


1025+560, 


X 


340: 


1084 


BD 


58 


06 


LDA 


1024+600, 


X 


340: 


1087 


9D 


59 


06 


STA 


1025+600, 


X 


350: 


108A 


BD 


80 


06 


LDA 


1024+640, 


X 


350: 


108D 


9D 


81 


06 


STA 


1025+640, 


X 


360: 


1090 


BD 


A8 


06 


LDA 


1024+680, 


X 


360: 


1093 


9D 


A9 


06 


STA 


1025+680, 


X 


370: 


1096 


BD 


D0 


06 


LDA 


1024+720, 


X 


370: 


1099 


9D 


Dl 


06 


STA 


1025+720, 


X 


380: 


109C 


BD 


F8 


06 


LDA 


1024+760, 


X 


380: 


109F 


9D 


F9 


06 


STA 


1025+760, 


X 


390: 


10A2 


BD 


20 


07 


LDA 


1024+800, 


X 


390: 


10A5 


9D 


21 


07 


STA 


1025+800, 


X 


400: 


10A8 


BD 


48 


07 


LDA 


1024+840, 


X 


400: 


10AB 


9D 


49 


07 


STA 


1025+840, 


X 


410: 


10AE 


BD 


70 


07 


LDA 


1024+880, 


X 


410: 


10B1 


9D 


71 


07 


STA 


1025+880, 


X 


420: 


10B4 


BD 


98 


07 


LDA 


1024+920, 


X 


420: 


10B7 


9D 


99 


07 


STA 


1025+920, 


X 


430: 


10BA 


BD 


C0 


07 


LDA 


1024+960, 


X 



52 



430: 


10BD 


9D 


CI 


07 




440: 


10C0 


CA 








440: 


10C1 


E0 


FF 






440: 


10C3 


F0 


03 






440: 


10C5 


4C 


2A 


10 




450: 


10C8 


60 






FIN 


460: 


10C9 


00 






BYTE 


] 1000- 


10CA 











STA 1025+960, X 
DEX 

CPX «*FF 

BEG FIN 

JMP LOOP 
RTS 
.BYTE0 



READY. 



PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



1000 


AD 


16 


D0 


LDA 


«D016 


1003 


29 


F8 




AND 


tt»F8 


1005 


18 






CLC 




1006 


6D 


C9 


10 


ADC 


«10C9 


1009 


8D 


16 


D0 


STA 


»D016 


100C 


EE 


C9 


10 


INC 


«10C9 


100F 


AD 


C9 


10 


LDA 


»10C9 


1012 


C9 


08 




CMP 


»«08 


1014 


F0 


01 




BEQ 


• 1017 


1016 


60 






RTS 




1017 


A9 


00 




LDA 


tt«00 


1019 


8D 


C9 


10 


STA 


«10C9 


101C 


AD 


16 


D0 


LDA 


«D016 


101F 


29 


F8 




AND 


tt»F8 


1021 


8D 


16 


D0 


STA 


«D016 


1024 


20 


28 


10 


JSR 


«1028 


1027 


60 






RTS 




1028 


A2 


26 




LDX 


tt«26 


102A 


BD 


00 


04 


LDA 


$0400 


102D 


9D 


01 


04 


STA 


»0401 


1030 


BD 


28 


04 


LDA 


«0428 



53 



1033 9D 29 04 
1036 BD 50 04 
1039 9D 31 04 
103C BD 78 04 
103F 9D 79 04 
1042 BD A0 04 
1045 9D Al 04 
1048 BD C8 04 
104B 9D C9 04 
104E BD F0 04 
1051 9D Fl 04 
1054 BD 18 05 
1057 9D 19 05 
105A BD 40 05 
105D 9D 41 05 
1060 BD 68 05 
1063 9D 69 05 
1066 BD 90 05 
1069 9D 91 05 
106C BD B8 05 
106F 9D B9 05 
1072 BD E0 05 
1075 9D El 05 
1078 BD 08 06 
107B 9D 09 06 
107E BD 30 06 
1081 90 31 06 
1084 BD 58 06 
1087 9D 59 06 
108 A BD 80 06 
108D 9D 81 06 
1090 BD A8 06 
1093 9D A9 06 
1096 BD D0 06 
1099 9D Dl 06 
109C BD F8 06 
109F 9D F9 06 
10A2 BD 20 07 
10A5 9D 21 07 
10A8 BD 48 07 
10AB 9D 49 07 



STA 


»0429, 


X 


LDA 


»0450, 


X 


STA 


*0451, 


X 


LDA 


»0478, 


X 


STA 


•0479, 


X 


LDA 


*04A0, 


X 


STA 


»04A1, 


X 


LDA 


*04C8, 


X 


STA 


»04C9, 


X 


LDA 


«04F0, 


X 


STA 


«04F 1 , 


X 


LDA 


«0518, 


X 


STA 


«0519, 


X 


LDA 


«0540, 


X 


STA 


»0541, 


X 


LDA 


«0568 , 


X 


STA 


«0569 , 


X 


LDA 


«0590, 


X 


STA 


C0591 , 


X 


LDA 


«i05B8, 


X 


STA 


«05B9 , 


X 


LDA 


«05E0, 


X 


STA 


«05E 1 , 


X 


LOA 


»0608 , 


X 


STA 


«0609 


X 


LDA 


«0630 


X 


STA 


«0631 


X 


LDA 


»0658 


X 


STA 


«0659 


X 


LDA 


«0680 


>x 


STA 


90681 


.X 


LDA 


»06A8 


)X 


STA 


906A9 


|X 


LDA 


«06D0 


pX 


STA 


«06D1 


,x 


LDA 


«06F8 


,x 


STA 


»06F9 


»x 


LOA 


•0720 


>x 


STA 


«0721 


.X 


LOA 


*0748 


.X 


STA 


*0749 


> X 



10AE 


BD 


70 


07 


LDA 


»0770, 


X 


10B1 


9D 


71 


07 


STA 


«0771, 


X 


10B4 


BD 


98 


07 


LDA 


*0798, 


X 


10B7 


9D 


99 


07 


STA 


»0799 , 


X 


10BA 


BD 


C0 


07 


LDA 


»07C0, 


X 


10BD 


9D 


CI 


07 


STA 


»07C 1 , 


X 


10C0 


CA 






DEX 






10C1 


E0 


FF 




CPX 


♦♦»FF 




10C3 


F0 


03 




BEQ 


«10C8 




10C5 


4C 


2A 


10 


J MP 


«102A 




10C8 


60 






RTS 






10C9 


00 






BRK 







8. Pixel scroll up 

The routine here scrolls the screen up one pixel every time that 
it is called. 

To set up the screen for scrolling type SYS 16384. 
To scroll the screen up one pixel type SYS 16398. 



PAL 
2 

20: 
30: 



<C)1979 BRAD TEMPLETON 



4000 
4000 



•OPT P,00 
*» «4000 

J TO SETUP TYPE 

ISYS16384 

J TO USE TYPE SYS 16398 



70: 


4000 


AD 


11 


00 


SETUP LDA 


53265 












lUSE BEFORE 


STARTING 


80: 


4003 


29 


F7 




AND 


*»247 


90: 


4005 


8D 


11 


D0 


STA 


53265 


100: 


4008 


A9 


07 




LDA 




100: 


400A 


8D 


3B 


40 


STA 


BYTE 


110: 


400D 


60 






RTS 














; MAIN ROUTINE 


130: 


400E 


AD 


11 


00 


LDA 


53265 


140: 


4011 


29 


F8 




AND 


#248 


150: 


4013 


18 






CLC 




160: 


4014 


6D 


3B 


40 


ADC 


BYTE 


170: 


4017 


8D 


11 


D0 


STA 


53265 


180: 


401A 


CE 


3B 


40 


DEC 


BYTE 


190: 


401D 


AD 


3B 


40 


LDA 


BYTE 


200: 


4020 


C9 


FF 




CMP 


««FF 


210: 


4022 


F0 


01 




BEQ 


RESET 


220: 


4024 


60 






RTS 




230: 


4025 


A9 


07 




RESET LDA 


#7 


230: 


4027 


8D 


3B 


40 


STA 


BYTE 


240: 


402A 


AD 


11 


00 


LDA 


53265 



56 



240: 


402D 


29 


F8 




AND 


#248 


240: 


402F 


18 






CLC 




240: 


4030 


69 


07 




ADC 


#7 


240: 


4032 


8D 


11 


D0 


STA 


53265 


250: 


4035 


A9 


0D 




LDA 


#13 


260: 


4037 


20 


02 


FF 


JSR 


«FFD2 


270: 


403A 


60 






RTS 




280: 


403B 


07 




BYTE 


.BYTE7 


34000 


-403C 













READY. 



PC 8R AC XR YR SP 
. I 97FE 72 00 00 01 F6 



4000 


AD 


11 


D0 


LDA 


*D011 


4003 


29 


F7 




AND 


#«F7 


4005 


8D 


11 


D0 


STA 


«D011 


4008 


A9 


07 




LDA 


#«07 


400A 


8D 


3B 


40 


STA 


«403B 


400D 


60 






RTS 




400E 


AD 


11 


D0 


LDA 


«D011 


4011 


29 


F8 




AND 


#«F8 


4013 


18 






CLC 




4014 


6D 


3B 


40 


ADC 


«403B 


4017 


8D 


11 


D0 


STA 


«D011 


401A 


CE 


3B 


40 


DEC 


»403B 


401D 


AD 


3B 


40 


LDA 


«403B 


4020 


C9 


FF 




CMP 


#«FF 


4022 


F0 


01 




BEQ 


*4025 


4024 


60 






RTS 




4025 


A9 


07 




LDA 


#«07 


4027 


8D 


3B 


40 


STA 


»403B 


402A 


AD 


11 


D0 


LDA 


»D011 


402D 


29 


F8 




AND 


#»F8 



402F 18 
4030 69 07 
4032 8D 11 D0 
4039 A9 00 
4037 20 D2 FF 
403A 60 
403B 07 



CLC 

ADC «»07 
ST A «D011 
LDA tt»0D 
JSR «FFD2 
RTS 
??? 



9. Pixel scroll down 



The following routine scrolls the screen down one pixel when 
it is called. However, due to the way the character scroll works 
(using the ROM print routine), the top line of the screen is not 
scrolled. If this routine were coupled with a raster interrupt to 
suppress the scroll at the top of the screen then this area would 
stay stationary while the rest would scroll independently. 

To set up the screen for scrolling type SYS 16384. 

To scroll the screen down one pixel type SYS 16398. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


4000 








• OPT 


P,00 


30: 


4000 








*« 


»4000 


40: 


4000 


AD 


11 


D0 


SETUP LDA 
; USE SETUP 
STARTING 


53265 
BEFORE 


60: 


4003 


29 


F7 




AND 


#247 


70: 


4005 


8D 


11 


D0 


STA 


53265 


80: 


4008 


A9 


00 




LDA 


#0 


80: 


400A 


8D 


4B 


40 


STA 


BYTE 


90: 


400D 


60 






RTS 














1 MAIN ROUTINE 


110: 


400E 


AD 


11 


D0 


LDA 


53265 


120: 


4011 


29 


F8 




AND 


«»248 


130: 


4013 


18 






CLC 




140: 


4014 


6D 


4B 


40 


ADC 


BYTE 


190: 


4017 


8D 


11 


D0 


STA 


53265 


160: 


401A 


EE 


4B 


40 


INC 


BYTE 


170: 


401D 


AD 


4B 


40 


LDA 


BYTE 


180: 


4020 


C9 


08 




CMP 


#«08 


190: 


4022 


F0 


01 




BEQ 


RESET 


200: 


4024 


60 






RTS 




210: 


4025 


A9 


00 




RESET LDA 


#0 



59 



210: 


4027 


8D 


4B 


40 


STA 


BYTE 


220: 


402A 


AD 


11 


00 


LOA 


53265 


220: 


402D 


29 


F8 




AND 


tt248 


220: 


402F 


8D 


11 


00 


STA 


53265 


230: 


4032 


A9 


13 




LOA 


# " I HOME } " 


240: 


4034 


20 


02 


FF 


JSR 


«FF02 


250: 


4037 


A9 


11 




LOA 


«»{CUR ON}" 


260: 


4039 


20 


02 


FF 


JSR 


»FF02 


270: 


403C 


A9 


90 




LOA 


«"{CUR D" 


280: 


403E 


20 


02 


FF 


JSR 


»FF02 


290: 


4041 


A9 


94 




LOA 


#"{INST OELJ 


300: 


4043 


20 


02 


FF 


JSR 


«FF02 


310: 


4046 


A9 


80 




LOA 


#128 


320: 


4048 


85 


OA 




STA 


218 


330: 


404A 


60 






RTS 




340: 


404B 


00 




BYTE 


.BYTE0 



14000-404C 
READY. 



PC SR AC XR YR SP 
. I97FE 72 00 00 01 F6 



4000 


AO 


11 


00 


LOA 


«D011 


4003 


29 


F7 




AND 


M»F7 


4005 


80 


11 


00 


STA 


«D011 


4008 


A9 


00 




LOA 


tt«00 


400A 


80 


4B 


40 


STA 


«404B 


4000 


60 






RTS 




400E 


AD 


11 


00 


LOA 


«O011 


4011 


29 


F8 




AND 


tt«F8 


4013 


18 






CLC 




4014 


60 


4B 


40 


ADC 


»404B 


4017 


80 


11 


00 


STA 


«O011 


401A 


EE 


4B 


40 


INC 


»404B 


4010 


AO 


4B 


40 


LOA 


«404B 



60 



4020 


C9 


08 




CMP 


tt«08 


4022 


F0 


01 




BEQ 


»4025 


4024 


60 






RTS 




4025 


A9 


00 




LDA 


#«00 


4027 


8D 


46 


40 


8TA 


•404B 


402A 


AD 


11 


D0 


LDA 


«D011 


402D 


29 


FB 




AND 


tt«F8 


402F 


8D 


11 


D0 


STA 


«D011 


4032 


A9 


13 




LDA 


tt»13 


4034 


20 


D2 


FF 


JSR 


•FFD2 


4037 


A9 


11 




LDA 


tt«ll 


4039 


20 


D2 


FF 


JSR 


•FFD2 


403C 


A9 


9D 




LDA 


N«9D 


403E 


20 


D2 


FF 


JSR 


•FFD2 


4041 


A9 


94 




LDA 


tt»94 


4043 


20 


D2 


FF 


JSR 


•FFD2 


4046 


A9 


80 




LDA 


«»»80 


4048 


85 


DA 




STA 


«DA 


404A 


60 






RTS 




404B 


00 






BRK 





10. Colour 



This routine allows you to change the screen colour, the bord- 
er colour, the text colour, extended colours 1, 2 and 3 (or mul- 
ticolour) In one command. 

The syntax is as follows: 

SYS 28672, screen colour,border colour,text colour, 
multi1,multi2,multi3 

NB. All parameters must be given. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 7000 .OPT P,00 

30: 7000 *" »7000 



(ROUTINE TO SET SCREEN 
I COLOURS AND BORDER AND 
I TEXT,MULTH,MULTI2 



80: 

90: 

100: 

110: 

120: 

130: 



7000 20 FD AE 
7003 20 37 70 
7006 8D 21 D0 
7009 20 FD AE 
700C 20 37 70 
700F 8D 20 D0 



JSR »AEFD 

JSR PAR AM 

STA 53281 

JSR »AEFD 

JSR PARAM 

STA 53280 



150: 
160: 
180: 
190: 
200: 
220: 
230: 



7012 20 FD AE 
7015 20 37 70 
7018 8D 86 02 
701B 20 FD AE 
701E 20 37 70 
7021 8D 22 D0 
7024 20 FD AE 



JSR «AEFD 
JSR PARAM 
STA 646 



JSR «AEFD 

JSR PARAM 

STA 53282 

JSR «AEFD 



62 



240: 


7027 


20 


37 


70 




JSR 


PARAM 


260: 


702 A 


8D 


23 


D0 




STA 


S3283 


270: 


702D 


20 


FD 


AE 




JSR 


«AEFD 


280: 


7030 


20 


37 


70 




JSR 


PARAM 


300: 


7033 


80 


24 


D0 




STA 


53284 


310: 


7036 


60 








RTS 




320: 


7037 


20 


9E 


B7 


PARAM 


JSR 


•B79E 


320: 


703A 


8A 








TXA 




330: 


703B 


60 








RTS 




340: 


703C 


4C 


48 


B2 


IQERR 


JMP 


«B248 


3 7000- 


703F 















READY. 



B* 

PC SR AC XR YR SP 
. I 97FE 72 00 00 01 F6 



7000 


20 


FD 


AE 


JSR 


9AEFD 


7003 


20 


37 


70 


JSR 


•7037 


7006 


8D 


21 


D0 


STA 


«D021 


7009 


20 


FD 


AE 


JSR 


«AEFD 


700C 


20 


37 


70 


JSR 


•7037 


700F 


8D 


20 


D0 


STA 


•D020 


7012 


20 


FD 


AE 


JSR 


•AEFD 


7015 


20 


37 


70 


JSR 


•7037 


7018 


8D 


86 


02 


STA 


•0286 


701B 


20 


FD 


AE 


JSR 


•AEFD 


701E 


20 


37 


70 


JSR 


•7037 


7021 


8D 


22 


D0 


STA 


•D022 


7024 


20 


FD 


AE 


JSR 


•AEFD 


7027 


20 


37 


70 


JSR 


•7037 


702A 


8D 


23 


D0 


STA 


•D023 


702D 


20 


FD 


AE 


JSR 


•AEFD 


7030 


20 


37 


70 


JSR 


•7037 


7033 


8D 


24 


D0 


STA 


•D024 


7036 


60 






RTS 




7037 


20 


9E 


B7 


JSR 


•B79E 


703A 


8A 






TXA 




703B 


60 






RTS 




703C 


4C 


48 


B2 


JMP 


•B248 



11. Copy 



This routine allows you to copy the contents of part of or all 
of the character ROM to a specified part of RAM. This is to make 
user defined characters easier to set up. 

The syntax is SYS 24576,address,no. of pages to copy. 

The address is where you want to start your character set at. 
The number of pages to copy is the number of 256 byte blocks 
of the ROM to copy down. Only whole numbers are allowed. 
The character ROM is 16 blocks long. If you specify more than 
16 then an illegal quantity error will occur. 

e.g. To copy the whole character ROM down to location 8192 
type the following: 

SYS 24576,8192,16 

or, to copy only the first K of the ROM down to location 12288 
type: 

SYS 24576,12288,4 

To enable the character set use location 53272 or the change 
banks routine in this book. 

to enable the character set at location 8192 type: 

POKE 53272,24 
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PAL <C)1979 BRAD TEMPLETON 
2 

20: 6000 .OPT P,00 

30: 6000 »6000 

I 

S ROUTINE TO MOVE 

I CHARACTER 

{ROM TO SPECIFIED 

I LOCATION 

J SYNTAX 

i 

JSYS24576,START,N0 OF 
5 PAGES TO COPY 
(WHERE PAGES ARE 296 
I BYTES LONG 



150: 


6000 


20 


FD 


AE 




JSR 


«AEFD 


160: 


6003 


20 


8A 


AD 




JSR 


$AD8A 


170: 


6006 


20 


F7 


B7 




JSR 


SB7F7 


180: 


6009 


A5 


14 






LDA 


$14 


190: 


600B 


85 


FB 






STA 


»FB 


200: 


600D 


A5 


15 






LDA 


»15 


210: 


600F 


85 


FC 






STA 


«FC 


230: 


6011 


20 


FD 


AE 


1 


JSR 


«AEFD 


240: 


6014 


20 


9E 


B7 




JSR 


»B79E 


250: 


6017 


8A 








TXA 




260: 


6018 


C9 


11 






CMP 


#17 


270: 


601 A 


90 


03 






BCC 


MORE 


280: 


601C 


4C 


48 


B2 




JMP 


«B248 


290: 


601 F 


85 


FD 




MORE 


STA 


«FD 


300: 


6021 


A9 


00 






LDA 


tt0 


310: 


6023 


8D 


5B 


60 




STA 


TEMP 


320: 


6026 


A0 


00 






LDY 


»0 


330: 


6028 


A9 


00 






LDA 


tt0 


340: 


602A 


85 


FE 






STA 


•FE 


350: 


602C 


A9 


D0 






LDA 


#208 


360: 


602E 


85 


FF 






STA 


•FF 


375: 


6030 


A9 


00 




1 


LDA 


4*0 


376: 


6032 


8D 


0E 


DC 




STA 


56334 


380: 


6035 


A9 


33 






LDA 


#51 



65 



390: 
400: 
410: 
420: 
430: 



6037 
6039 
603B 
603D 
603E 



85 01 
Bl FE 
91 FB 
C8 

D0 F9 



LOOP 



STA 
LDA 
STA 
INY 
BNE 



<*FE) , Y 
<«FB) , Y 

LOOP 



450: 
460: 
470: 
480: 



6040 
6043 
6046 
6048 



EE 5B 60 
AD 5B 60 
C5 FD 
B0 07 



INC 
LDA 
CMP 
BCS 



TEMP 
TEMP 
«FD 

FINISH 



500: 
510: 
520: 

540: 
550: 
560: 
570: 
580: 
590: 

]6000 



604A 
604C 
604E 

6051 
6053 
6055 
6057 
605A 
605B 
-605B 



E6 FC 
E6 FF 
4C 39 60 



A9 37 
85 01 
A9 01 
8D 0E 
60 



; 

FINISH 



DC 



TEMP 



INC 
INC 
JMP 

LDA 
STA 
LDA 
STA 
RTS 



«FC 
»FF 
LOOP 

#55 
1 

ttl 

56334 



READY. 



B* 

PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



■ 

6000 20 FD AE 
6003 20 8A AD 
6006 20 F7 B7 
6009 A5 14 
6006 85 FB 
600D A5 15 
600F 85 FC 



JSR «AEFD 
JSR «AD8A 
JSR «B7F7 
LDA «14 
STA «FB 
LDA «15 
STA *FC 
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6011 


20 


FD 


AE 


JSR 


$AEFD 


6014 


20 


9E 


B7 


JSR 


*B79E 


6017 


8A 






TXA 




6018 


C9 


11 




CMP 


tt«ll 


601A 


90 


03 




6CC 


«601F 


601 C 


4C 


48 


B2 


JMP 


«B248 


601F 


85 


FD 




STA 


«FD 


6021 


A9 


00 




LDA 


tt«00 


6023 


8D 


5B 


60 


STA 


«6056 


6026 


A0 


00 




LDY 


tt»00 


6028 


A9 


00 




LDA 


»«00 


602A 


85 


FE 




STA 


*FE 


602C 


A9 


D0 




LDA 


4t«D0 


602E 


85 


FF 




STA 


»FF 


6030 


A9 


00 




LDA 


MS00 


6032 


8D 


0E 


DC 


STA 


»DC0E 


6035 


A9 


33 




LDA 


lt«33 


6037 


85 


01 




STA 


«01 


6039 


Bl 


FE 




LDA 


($FE) , 


603B 


91 


FB 




STA 


(*FB) , 


603D 


C8 






I NY 




603E 


D0 


F9 




BNE 


«6039 


6040 


EE 


5B 


60 


INC 


«605B 


6043 


AD 


5B 


60 


LDA 


«605B 


6046 


C5 


FD 




CMP 


«FD 


6048 


B0 


07 




BCS 


$6051 


604A 


E6 


FC 




INC 


»FC 


604C 


E6 


FF 




INC 


«FF 


604E 


4C 


39 


60 


JMP 


«6039 


6051 


A9 


37 




LDA 


««37 


6053 


85 


01 




STA 


«01 


6055 


A9 


01 




LDA 


#«01 


6057 


80 


0E 


DC 


STA 


«DC0E 


605A 


60 






RTS 





12. Sprite/char 



If you are using sprites in a program the time will come when 
you want to find what character the sprite is under or over. You 
can see which one, but the computer cannot. Commodore kindly 
made it possible for the video chip to detect if it has hit a character 
or not, but not to detect which one. The following program does 
this. It is written to detect the charcter under sprite 0. To find 
out which character it is, use SYS 1 6384 from Basic or JSR $4000 
from machine code. The character code is returned in location 
828 ($0330, so to find the character execute the routine and 
PEEK or LDA(X or Y) location 828 ($033C) 

No doubt you will want to check which character is under a 
different sprite than sprite 0. Rather than listing 8 programs, one 
for each sprite, here is a list of what to change to make it work 
for any sprite: 

1 . Change the first line from LDA $D000 to LDA $ hex location 
of 'X' coordinate of the sprite that you want to test. 

2. Change the line at address $400A to CMP #$ bit value of 
sprite to be tested (sprite 0=1 through to sprite 7= 128). 

3. Change the line at address $400E to LDX $ hex location of 
'X' coordinate of the sprite to be tested. 

4. Change the line at address $401 1 to LDA $ hex location of 
'Y' coordinate of sprite to be tested. 

5. Change the line at address $4032 to CMP # $ bit value of sprite 
to be tested (as in 2). 

The routine checks which character is under the top left 8 bytes 
of the sprite (going down), i.e. 
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1 23 
1 2 3 
1 23 
1 23 
1 23 
1 2 3 
1 23 
1 23 

and so on ... 

It checks the character under the Is in the above diagram, but 
this can be altered by changing two bytes in the program as 
follows: 

The line at location $4004 is SBC #$18. The number after the 
SBC must never be less than $18 (24), but if you add one to 
this value for every bit across the sprite then you can alter where 
on the horizontal the routine will check. (This number must never 
exceed $30 (48) if the sprite is not expanded in the 'X' direction 
or $60 (96) if expanded. ) Remember that as the sprite is expanded 
each dot on the sprite is 2 dots wide, therefore you will need 
to multiply the amount greater than $18 by two and add it to $18. 

e.g. to get the routine to check for the rightmost 8 bits of an 
unexpanded sprite, make the line SBC #$30. 

Or, to get the routine to check for the 7th to the 15th bit across 
in an expanded sprite, make the line SBC #(24+ 7*2) which 
is SBC #$26. 

To alter where the routine checks on the vertical change the 
line at address $4015 (SBC #$3A). The rules for changing are 
the same as for the 'X' direction. If the sprite is unexpanded 
in the 'Y' direction then the value is $3A + the byte down. If 
the sprite is expanded then the value is $3A + 2* the byte down. 
The value must never be less than $3A and if the sprite is unex- 
panded no greater than $4F (79) or if the sprite is expanded no 
greater than $64 (100) for the routine. 

e.g. to make the routine check for the bottom 8 bytes of the 
sprite when it is unexpanded the line is SBC #$47. 
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or, to make the routine check for the 10th to the 18th byte down 
in an expanded sprite the line is SBC #$3A + 2*10 which is 
SBC #$4E 



PAL (0 1979 BRAD TEMPLETON 
2 



20: 


4000 








• OPT 


P,00 


30: 


4000 








*= 


«4000 


40: 


4000 


AO 


00 


00 


LOA 


53248 


50: 


4003 


38 






SEC 




50: 


4004 


E9 


18 




SBC 


#24 


50: 


4006 


AA 






TAX 




60: 


4007 


AO 


10 


00 


LOA 


53264 


60: 


400A 


C9 


01 




CMP 


»1 


60: 


400C 


00 


03 




BNE 


MORE 


70: 


400E 


AE 


00 


00 


LOX 


53248 


80: 


4011 


AD 


01 


00 MORE 


LOA 


53249 


80: 


4014 


38 






SEC 




80: 


4015 


E9 


3A 




SBC 


«58 


80: 


4017 


A8 






TAY 




90: 


4018 


8E 


98 


40 


STX 


XISTORE ;x 


100: 


401B 


8C 


9A 


40 


STY 


YISTORE ;Y1 


110: 


401E 


98 






TYA 




120: 


401F 


4A 






LSR 


A 


120: 


4020 


4A 






LSR 


A 


120: 


4021 


4A 






LSR 


A ;Y2=Y1/8 


130: 


4022 


18 






CLC 




130: 


4023 


69 


01 




AOC 


«1 


130: 


4025 


80 


9B 


40 


STA 


Y2ST0RE 


140: 


4028 


8A 






TXA 




150: 


4029 


4A 






LSR 


A 


150: 


402A 


4A 






LSR 


A 


150: 


402B 


4A 






LSR 


A ;X2=X2/8 


160: 


402C 


80 


99 


40 


STA 


X2ST0RE 


170: 


402F 


AO 


10 


00 


LOA 


53264 


170: 


4032 


C9 


01 




CMP 


#1 


170: 


4034 


00 


09 




BNE 


MOREl 


180: 


4036 


AO 


99 


40 


LOA 


X2ST0RE 


190: 


4039 


18 






CLC 





70 



190: 


403A 


69 


10 






ADC 


#29 


200: 


403C 


8D 


99 


40 




STA 


X2ST0RE 


210: 


403F 


AD 


9B 


40 


MOREl 


LOA 


Y2ST0RE 


220: 


4042 


80 


96 


40 




STA 


NUMBERl 


230: 


4045 


A9 


28 






LDA 


#40 


240: 


4047 


80 


97 


40 




STA 


NUMBER2 


250: 


404A 


20 


79 


40 




JSR 


MULTIPLY 


260: 


404D 


AD 


99 


40 




LOA 


X2ST0RE 


270: 


4050 


60 


94 


40 




ADC 


RESULT 


280: 


4053 


80 


94 


40 




STA 


RESULT 


290: 


4056 


AD 


95 


40 




LDA 


RESULT+1 


300: 


4059 


69 


00 






ADC 


#0 


310: 


405B 


80 


95 


40 




STA 


RESULT+1 


320: 


405E 


AO 


95 


40 




LOA 


RESULT+1 


330: 


4061 


18 








CLC 




340: 


4062 


69 


04 






ADC 


#4 


350: 


4064 


80 


95 


40 




STA 


RESULT+1 








■ 

> 


CHARACTER IN 


LOCATION 








}1N LOGS RESULT AND 


RESULT+1 


380: 


4067 


AO 


94 


40 




LDA 


RESULT 


380: 


406A 


85 


FB 






STA 


«FB 


390: 


406C 


AD 


95 


40 




LDA 


RESULT+1 


390: 


406F 


85 


FC 






STA 


«FC 


400: 


4071 


A0 


00 






LDY 


#0 


410: 


4073 


Bl 


FB 






LDA 


(*FB) , Y 


420: 


4075 


80 


3C 


03 




STA 


828 


430: 


4078 


60 








RTS 




440: 


4079 


A9 


00 




MULTIPLY 


LDA 


#0 


450: 


407B 


80 


94 


40 




STA 


RESULT 


460: 


407E 


A2 


08 






LOX 


#8 


470: 


4080 


4E 


96 


40 


LOOP 


LSR 


NUMBERl 


480: 


4083 


90 


04 






BCC 


NOAOD 


490: 


4085 


18 








CLC 




500: 


4086 


60 


97 


40 




ADC 


NUMBER2 


510: 


4089 


6A 






NOAOD 


ROR 


A 


520: 


408A 


6E 


94 


40 




ROR 


RESULT 


530: 


4080 


CA 








OEX 




540: 


408E 


00 


F0 






BNE 


LOOP 


550: 


4090 


80 


95 


40 




STA 


RESULT+1 


560: 


4093 


60 








RTS 
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580: 


4094 


00 00 


590: 


4096 


00 


600: 


4097 


00 


610: 


4098 


00 


620: 


4099 


00 


630: 


409A 


00 


640: 


409B 


00 


] 4000- 


409C 





READY. 



RESULT . WORD0 

NUMBERl . BYTE0 

NUMBER2 . BYTE0 

XISTORE .BYTE0 

X2ST0RE .BYTE0 

YISTORE .BYTE0 

Y2ST0RE . BYTE0 



B* 

PC SR AC XR YR SP 
. J97FE 72 00 00 01 F6 



4000 


AD 


00 


D0 


LDA 


«D000 


4003 


38 






SEC 




4004 


E9 


18 




SBC 


#«18 


4006 


AA 






TAX 




4007 


AD 


10 


D0 


LDA 


«D010 


400A 


C9 


01 




CMP 


M«01 


400C 


D0 


03 




BNE 


«4011 


400E 


AE 


00 


D0 


LDX 


«D000 


4011 


AD 


01 


D0 


LDA 


«D001 


4014 


38 






SEC 




4015 


E9 


3A 




SBC 


#«3A 


4017 


A8 






TAY 




4018 


8E 


98 


40 


STX 


44098 


401B 


8C 


9A 


40 


STY 


«409A 


401E 


98 






TYA 




401F 


4A 






LSR 




4020 


4A 






LSR 




4021 


4A 






LSR 




4022 


18 






CLC 




4023 


69 


01 




ADC 


tt«01 


4025 


8D 


9B 


40 


STA 


«409B 



72 



4028 


8A 






TXA 




4029 


4A 






LSR 




402A 


4A 






LSR 




402B 


4A 






LSR 




402C 


8D 


99 


40 


STA 


$4099 


402F 


AD 


10 


D0 


LDA 


4SD010 


4032 


C9 


01 




CMP 


#«01 


4034 


D0 


09 




BNE 


*403F 


4036 


AO 


99 


40 


LDA 


*4099 


4039 


18 






CLC 




403A 


69 


ID 




ADC 


#S1D 


403C 


8D 


99 


40 


STA 


*4099 


403F 


AD 


9B 


40 


LDA 


4>409B 


4042 


8D 


96 


40 


STA 


*4096 


4045 


A9 


28 




LDA 


tt$28 


4047 


8D 


97 


40 


STA 


*4097 


404A 


20 


79 


40 


JSR 


•4079 


404D 


AD 


99 


40 


LDA 


*4099 


4090 


6D 


94 


40 


ADC 


»4094 


4053 


8D 


94 


40 


STA 


•4094 


4056 


AD 


95 


40 


LDA 


*4095 


4059 


69 


00 




ADC 


M«00 


405B 


8D 


95 


40 


STA 


•4095 


405E 


AD 


95 


40 


LDA 


»4095 


4061 


18 






CLC 




4062 


69 


04 




ADC 


#*04 


4064 


8D 


95 


40 


STA 


«4095 


4067 


AD 


94 


40 


LDA 


*4094 


406A 


85 


FB 




STA 


•FB 


406C 


AD 


95 


40 


LDA 


•4095 


406F 


85 


FC 




STA 


•FC 


4071 


A0 


00 




LDY 


#•00 


4073 


Bl 


FB 




LDA 


(•FB) , 


4075 


8D 


3C 


03 


STA 


•033C 


4078 


60 






RTS 




4079 


A9 


00 




LDA 


#•00 


407B 


8D 


94 


40 


STA 


•4094 


407E 


A2 


08 




LDX 


#•08 


4080 


4E 


96 


40 


LSR 


•4096 


4083 


90 


04 




JJCC 


•4089 


4085 


18 






CLC 





4086 


6D 


97 


40 


ADC 




4089 


6A 






ROR 




408A 


6E 


94 


40 


f-v n 

ROR 




408D 


CA 






OEX 




408E 


D0 


F0 






A/I AfOflt 


4090 


8D 


95 


40 


OTA 

STA 




4093 


60 






RTS 




4094 


00 






BRK 




4095 


00 






BRK 




4096 


00 






jt n 

BRK 




4097 


00 






r~t IV 

BRK 




4098 


00 






BRK 




4099 


00 






BRK 




409A 


00 






BRK 




409B 


00 






BRK 





13. Doke 



The following routine allows you to POKE a 16 bit number into 
two consecutive locations . This could be to change a RAM vec- 
tor. It replaces the following line of Basic code: 

a = number: hi = int( a/256): lo = (a-number)*256: poke 
address, lo:pokeaddress+ 1,hi 

To use the routine type SYS 960,address,number. 

e.g. to change the output character routine to point to your own 
routine at 828 (as in the list alter routine later) type SYS 
960,806,828. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 03C0 .OPT P,00 

30: 03C0 *= 960 



DOKE ROUTINE 



{SYNTAX SYS 960, 

{ADDRESS, VALUE 

; EG SYS16384, 788, 16384 



110: 
120: 

130: 



03C0 
03C3 
03C6 



20 
20 
20 



FD AE 
8A AD 
F7 B7 



JSR 
JSR 
JSR 



«AEFD 
«AD8A 
»B7F7 



150: 
160: 
170: 

180: 



03C9 
03CB 
03CD 
03CF 



AS 
85 
A5 

85 



14 
FB 
15 
FC 



LDA 
STA 
LDA 
STA 



$14 
«FB 
$15 
«FC 



75 



200: 


03D1 


20 


FD 


AE 


JSR 


$AEFD 




210: 


03D4 


20 


8A 


AD 


JSR 


«AD8A 




220: 


03D7 


20 


F7 


B7 

■ 


JSR 


»B7F7 




240: 


03DA 


A0 


00 


> 


LDY 


#0 




250: 


03DC 


AS 


14 




LOA 


«14 




260: 


03DE 


91 


FB 




STA 


(«FB) , 


Y 


270: 


03E0 


A0 


01 




LDY 


Ml 




280: 


03E2 


A5 


15 




LDA 


«15 




290: 


03E4 


91 


FB 




STA 


(«FB) , 


Y 


310: 


03E6 


60 






RTS 







303C0-03E7 
READY. 



B-» 

PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



03C0 


20 


FD 


AE 


JSR 


«AEFD 




03C3 


20 


8A 


AD 


JSR 


«AD8A 




03C6 


20 


F7 


B7 


JSR 


*B7F7 




03C9 


A5 


14 




LDA 


»14 




03CB 


85 


FB 




STA 


«FB 




03CD 


AS 


IS 




LDA 


«15 




03CF 


85 


FC 




STA 


»FC 




03D1 


20 


FD 


AE 


JSR 


«AEFD 




03D4 


20 


8A 


AD 


JSR 


«AD8A 




03D7 


20 


F7 


B7 


JSR 


•B7F7 




03DA 


A0 


00 




LDY 


««00 




03DC 


AS 


14 




LDA 


«14 




03DE 


91 


FB 




STA 


<*FB) , 


Y 


03E0 


A0 


01 




LDY 


M«01 




03E2 


AS 


15 




LDA 


«15 




03E4 


91 


FB 




STA 


<«FB) , 


Y 


03E6 


60 






RTS 
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14. Deek 



This routine is complementary to Doke. It allows you to read 
the contents of two consecutive locations in memory. It replaces 
the following line of Basic code: 

PRINT PEEK(ADDRESS)+256*PEEK(ADDRESS + 1) 

The routine cannot create a variable (e.g. a = Deek (address) 
is not possible). 

The syntax for the routine is as follows: 
SYS 828,address 



PAL (0 1979 BRAD TEMPLETON 
2 

20: 033C .OPT P,00 

30: 033C «■= 828 

■ 

t 

; SIMULATED DEEK 

; FUNCTION 

;ONLY USED TO PRINT 

;THE VALUE 

JIN TWO CONSECUTIVE 

; LOCATIONS IN 16 BIT 
; FORMAT 
; SYNTAX 

;SYS828, ADDRESS 
;EG. SYS828,788 
;WILL RETURN 59953 

; 
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210: 033C 20 FD AE 

220: 033F 20 8A AD 

230: 0342 20 F7 B7 

250: 0345 A5 14 

260: 0347 85 FB 

270: 0349 A5 15 

280: 034B 85 FC 

300: 034D A0 00 

310: 034F Bl FB 

320: 0351 C8 

330: 0352 AA 

340: 0353 Bl FB 

360: 0355 4C CD BD 

3033C-0358 



JSR 
JSR 
JSR 

LDA 
STA 
LDA 
STA 



«AEFD 
«AD8A 
«B7F7 

«14 
*FB 
«15 
«FC 



LDY H0 

LDA («FB) 
I NY 
TAX 

LDA <«FB) 

JMP «BDCD 



READY. 



B^e- 

PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



033C 


20 


FD 


AE 


JSR 


«AEFD 




033F 


20 


8A 


AD 


JSR 


»AD8A 




0342 


20 


F7 


B7 


JSR 


«B7F7 




0345 


AS 


14 




LDA 


»14 




0347 


85 


FB 




STA 


«FB 




0349 


A5 


15 




LDA 


«15 




034B 


85 


FC 




STA 


«FC 




034D 


A0 


00 




LDY 


tt«00 




034F 


Bl 


FB 




LDA 


(«FB) , 


Y 


0351 


C8 






I NY 






0352 


AA 






TAX 






0353 


Bl 


FB 




LDA 


<«FB) , 


Y 


0355 


4C 


CD 


BD 


JMP 


«BDCD 
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15. 3 channel IRQ tune 



The following routine will play a tune independently of the other 
things that the computer is doing. 

The routine is enabled by SYS 24576 and can be stopped with 
run/stop and restore. 

The data for the tune is held in the tunetable in the PAL listing 
and from location $6074 onwards in the disassembly. 



PAL 
2 

20: 
30: 

40: 
40: 
N 

40: 
40: 
N 

40: 
40: 
40: 

50: 
50: 

50: 
50: 

50: 

50: 



<C)1979 BRAD TEMPLETON 

6000 .OPT P,00 

6000 *= $6000 

6000 78 SEI 

6001 A9 32 LDA «<MAI 

6003 8D 14 03 STA 783 

6006 A9 60 LDA «>MAI 

6008 8D 15 03 STA 789 

600B A9 0F LDA ttl5 

600D 8D 18 D4 STA 54296 

6010 A9 13 LDA *»19 

6012 8D 04 D4 STA 54276 

6015 A9 40 LDA #64 

6017 8D 05 D4 STA 54277 

601A 8D 06 D4 STA 54278 

601D 8D 0C D4 STA 54284 
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50: 


6020 


80 


00 


04 




STA 


54285 


52; 


6023 


A9 


21 






LDA 


»*33 


52: 


6025 


8D 


0B 


04 




STA 


54283 


55: 


6028 


A9 


00 






LDA 


#0 


55: 


602A 


85 


FB 






STA 


251 


55: 


602C 


85 


FC 






STA 


252 


53 : 


602E 


85 


FD 






STA 


253 


55: 


6030 


58 








CLI 




55: 


6031 


60 






■ 


RTS 




70: 


6032 


A6 


FB 




> 

MAIN 


LDX 


251 


70: 


6034 


A4 


FC 






LOY 


252 


70: 


6036 














80: 

X 


6036 


BD 


74 


60 




LDA 


TUNE, 


90: 


6039 


8D 


00 


04 




STA 


54272 


95: 


603C 


BD 


A6 


60 




LDA 


TUNEl 


















95: 


603F 


8D 


07 


04 




STA 


54279 


95: 


6042 


BO 


A7 


60 




LDA 


TUNEl 


-1,X 
















95: 


6045 


80 


08 


04 




STA 


54280 


100: 


6048 


BD 


75 


60 




LOA 


TUNE + 


1,X 
















1 10: 


604B 


8D 


01 


04 




STA 


54273 


120: 


604E 


A5 


FD 






LDA 


253 


130: 


6050 


C9 


0A 






CMP 


#10 


140: 


6052 


B0 


05 






BCS 


NEXDE 


LAY 
















150: 


6054 


E6 


FD 






INC 


253 


150: 


6056 


4C 


31 


EA 




JMP 


«EA31 


160: 


6059 


A9 


00 




NEXDELAY 


LOA 


#0 


160: 


605B 


85 


FD 






STA 


253 


160: 


605D 


E8 








I NX 





80 



160: 


605E 


E8 






I NX 




160: 


605F 


C8 






INY 




160: 


6060 


86 


FB 




STX 


251 


160: 


6062 


84 


FC 




STY 


252 


1 API' 










wr A 




160: 


6066 


B0 


03 




BCS 


RE 


160: 


6068 


4C 


31 EA 




JMP 


«EA31 


165: 


606B 


A2 


00 RE 




LDX 


n0 












O 1 H 




165: 


606F 


85 


FC 




STA 


252 


165: 


6071 


4C 


31 EA 




JMP 


«EA31 


1000: 


6074 


C6 


2D 00 TUNE 




. BYT 


198,4 


5,0,0, 


198,45 


i,52,43, 126,38,0, 


0, 


126, 


38 


1010: 


6082 


4B 


22 7E 




.BYT 


75,34 


, 126,38, 75,34, 141,30,214,28, 


0f 







1015: 


608E 


D6 


IC 8D 




. BYT 


214,2 


8,141, 


30,75, 


34, 


227,22 








1020: 


6096 


Bl 


19 8D 




. BYT 


177,2 


5, 141, 


30,214 


,28 


1, 177,25,227,22 






1030: 


60A0 


00 


00 00 




. BYT 


0,0,0 


,0,0,0 


,0,0 












1050: 


60A8 


72 


0B 00 TUNEl 




.BYT 


114, 1 


1,0,0, 


114,11 


,205, 10, 159,9,0, 




159," 


9 


1060: 


60B6 


93 


08 9F 




.BYT 


147,8 


, 159,9 


,147,8 


:, 163,7,53,7,0,0 








1070: 


60C2 


35 


07 A3 




.BYT 


53,7, 


163,7, 


147,8, 


185 


1,5 








1080: 


60CA 


6C 


06 A3 




. BYT 


108,6 


, 163,7 


,53,7, 


108 


',6, 185,5 








1090: 


60D4 


00 


00 00 




. BYT 


0,0,0 



,0,0,0,0,0 
]6000-60DC 

READY. 



81 



B* 

PC SR AC XR YR SP 
.;97FE 72 00 00 01 F6 



6000 


78 






SEI 




6001 


A9 


32 




LOA 




6003 


8D 


14 


03 


STA 


*0314 


6006 


A9 


60 




LDA 


tt«60 


6008 


8D 


15 


03 


STA 


40315 


600B 


A9 


0F 




LDA 


M«0F 


600D 


8D 


18 


D4 


STA 


«D418 


6010 


A9 


13 




LOA 


tt«13 


6012 


8D 


04 


D4 


STA 


«D404 


6019 


A9 


40 




LOA 


H«40 


6017 


8D 


05 


D4 


STA 


«D405 


601A 


8D 


06 


D4 


STA 


«D406 


601D 


8D 


0C 


D4 


STA 


4D40C 


6020 


8D 


0D 


D4 


STA 


«D40D 


6023 


A9 


21 




LDA 


tt«21 


6025 


8D 


0B 


D4 


STA 


«D40B 


6028 


A9 


00 




LDA 


#«00 


602A 


85 


FB 




STA 


•FB 


602C 


85 


FC 




STA 


»FC 


602E 


85 


FD 




STA 


»FD 


6030 


58 






CLI 




6031 


60 






RTS 




6032 


A6 


FB 




LDX 


«FB 


6034 


A4 


FC 




LDY 


»FC 


6036 


BD 


74 


60 


LDA 


«6074 , 


6039 


8D 


00 


D4 


STA 


«D400 


603C 


BD 


A6 


60 


LDA 


960A6 


603F 


8D 


07 


D4 


STA 


*D407 


6042 


BD 


A7 


60 


LDA 


«60A7 


6045 


80 


08 


D4 


STA 


«D408 


6048 


BD 


75 


60 


LDA 


«6075 


604B 


8D 


01 


D4 


STA 


«O401 


604E 


A5 


FD 




LDA 


•FD 


6050 


C9 


0A 




CMP 


4t«0A 


6052 


B0 


05 




BCS 


•6059 


6054 


E6 


FD 




INC 


•FD 


6056 


4C 


31 


EA 


JMP 


•EA31 



6059 


A9 


00 


LDA 


M«00 


605B 


85 


FD 


STA 


*FD 


6050 


E8 




INX 




605E 


E8 




INX 




605F 


C8 




INY 




6060 


86 


FB 


STX 


«FB 


6062 


84 


FC 


STY 


•FC 


6064 


E0 


30 


CPX 


tt«30 


6066 


B0 


03 


BCS 


»606B 


6068 


4C 


31 EA 


JMP 


«EA31 


606B 


A2 


00 


LDX 


M«00 


606D 


85 


FB 


STA 


«FB 


606F 


85 


FC 


STA 


•FC 


6071 


4C 


31 EA 


JMP 


•EA31 


6074 


C6 


2D 


DEC 


•2D 


6076 


00 




BRK 




6077 


00 




BRK 




6078 


C6 


2D 


DEC 


•2D 



6074 


C6 


2D 


00 


00 


C6 


2D 


34 


2B 


607C 


7E 


26 


00 


00 


7E 


26 


4B 


22 


6084 


7E 


26 


4B 


22 


8D 


IE 


D6 


IC 


608C 


00 


00 


D6 


IC 


8D 


IE 


4B 


22 


6094 


E3 


16 


Bl 


19 


8D 


IE 


D6 


IC 


609C 


Bl 


19 


E3 


16 


00 


00 


00 


00 


60A4 


00 


00 


00 


00 


72 


0B 


00 


00 


60AC 


72 


0B 


CD 


0A 


9F 


09 


00 


00 


60B4 


9F 


09 


93 


08 


9F 


09 


93 


08 


60BC 


A3 


07 


35 


07 


00 


00 


35 


07 


60C4 


A3 


07 


93 


08 


B9 


05 


6C 


06 


60CC 


A3 


07 


35 


07 


6C 


06 


B9 


05 


60D4 


00 


00 


00 


00 


00 


00 


00 


00 



16. List alter 

The following routine lets you list a program in a specified column 
width. I have used it to list the Supermen loader in a width suita- 
ble for a book page. 

To use this routine type SYS 828, number of columns. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


033C 










. OPT 


P, 00 


30: 


033C 












$033C 


40: 


033C 








IBSOUT 




$0326 


50: 


033C 


20 


FD 


AE 




JSR 


$AEFD 


60: 


033F 


20 


9E 


B7 




JSR 


$B79E 


70: 


0342 


8E 


77 


03 




STX 


COLUMN 


80: 


0345 


AO 


26 


03 




LDA 


IBSOUT 


90: 


0348 


8D 


78 


03 




STA 


OLDOUT 


100: 


034B 


AD 


27 


03 




LDA 


IBSOUT+1 


110: 


034E 


8D 


79 


03 




STA 


OLDOUT+1 


120: 


0351 


A9 


5C 






LDA 


#<MAIN 


130: 


0353 


8D 


26 


03 




STA 


IBSOUT 


140: 


0356 


A9 


03 






LDA 


#>MAIN 


150: 


0358 


8D 


27 


03 




STA 


IBSOUT+1 


160: 


035B 


60 






• 


RTS 




180: 


035C 


C9 


0D 




MAIN 


CMP 


4*13 


190: 


035E 


F0 


08 






BEQ 


DOCR 


200: 


0360 


CE 


7A 


03 




DEC 


COUNT 


210: 


0363 


D0 


0B 






BNE 


NADDCR 


220: 


0365 


20 


74 


03 




JSR 


NEWPRT 


230: 


0368 


AD 


77 


03 


DOCR 


LDA 


COLUMN 


240: 


036B 


8D 


7A 


03 




STA 


COUNT 


250: 


036E 


A9 


0D 






LDA 


4tl3 


260: 


0370 


20 


74 


03 


NADDCR 


JSR 


NEWPRT 



84 



270: 0373 60 

280: 0374 6C 78 03 NEWPRT 

290: 0377 50 COLUMN 

300: 0378 OLDOUT 

310: 0378 COUNT 

3033C-0378 



RTS 

JMP (OLDOUT) 
.BYT 80 

OLDOUT+2 



READY. 



B* 

PC SR AC XR YR SP 
. ; 97FE 72 00 00 01 F6 



033C 


20 


FD 


AE 


JSR 


*AEFD 


033F 


20 


9E 


B7 


JSR 


«B79E 


0342 


8E 


77 


03 


STX 


«0377 


0345 


AD 


26 


03 


LDA 


«0326 


0348 


8D 


78 


03 


STA 


«0378 


034B 


AD 


27 


03 


LDA 


«0327 


034E 


8D 


79 


03 


STA 


«0379 


0351 


A9 


5C 




LDA 


tt»5C 


0353 


8D 


26 


03 


STA 


«0326 


0356 


A9 


03 




LDA 


#«03 


0358 


8D 


27 


03 


STA 


«0327 


035B 


60 






RTS 




035C 


C9 


0D 




CMP 


#«0D 


035E 


F0 


08 




BEQ 


S0368 


0360 


CE 


7A 


03 


DEC 


«037A 


0363 


D0 


0B 




BNE 


*0370 


0365 


20 


74 


03 


JSR 


*0374 


0368 


AD 


77 


03 


LDA 


«0377 


0366 


8D 


7A 


03 


STA 


»037A 


036E 


A9 


0D 




LDA 


#»0D 


0370 


20 


74 


03 


JSR 


*0374 


0373 


60 






RTS 




0374 


6C 


78 


03 


JMP 


<*0378 


0377 


50 


00 




BVC 


$0379 



85 



17. Old 



This routine allows a program accidentally newed to be reco- 
vered. It also works after a SYS 64738 or SYS 58260 (cold or 
warm start). If the old routine is not in memory when you need 
it, do not worry: it can be loaded in after the new and executed 
and the program will still be recovered. 

To use type SYS 300. 

To load into memory after a new type L0AD"0LD",8,1 (or 
L0AD"0LD",1,1) and then SYS 300. 



PAL (0 1979 BRAD TEMPLETON 



2 



20: 


012C 








.OPT 


P,00 


30: 


012C 








*= 

J OLD ROUTINE 


300 


50: 


012C 


A9 


FF 




LDA 


♦♦«FF 


60: 


012E 


A0 


01 




LDY 


ttl 


70: 


0130 


91 


2B 




STA 


<»2B) ,8Y 


80: 


0132 


20 


33 


AS 


JSR 


«A533 


90: 


0135 


A5 


22 




LDA 


«22 


100: 


0137 


18 






CLC 




110: 


0138 


69 


02 




ADC 


tt2 


110: 


013A 


85 


2D 




STA 


«2D 


120: 


013C 


A5 


23 




LDA 


«23 


130: 


013E 


69 


00 




ADC 


tt0 


140: 


0140 


85 


2E 




STA 


«2E 


150: 


0142 


4C 


5E 


A6 


JMP 


»A65E 



3012C-0145 
READY . 



86 



PC SR AC XR YR SP 
97FE 72 00 00 01 F6 



PC SR AC XR YR SP 
, ;97FE 72 00 00 01 F6 



012C 


A9 


FF 




LDA 


#«FF 


012E 


A0 


01 




LDY 


t»«01 


0130 


91 


2B 




STA 


(«2B) , 


0132 


20 


33 


A5 


JSR 


«A533 


0135 


AS 


22 




LDA 


«22 


0137 


18 






CLC 




0138 


69 


02 




ADC 


#«02 


013A 


85 


2D 




STA 


«2D 


013C 


A5 


23 




LDA 


»23 


013E 


69 


00 




ADC 


tt«00 


0140 


85 


2E 




STA 


«2E 


0142 


4C 


5E 


A6 


JMP 


«A65E 



18. Graph 



This routine is the graph (or high res) command. It turns on the 
high res screen which is located at 24576 and the colour memory 
at 16384. It does not clear the screen. 

To use type SYS 49152. 



PAL 
2 

20: 
30: 



<C)1979 BRAD TEMPLETON 

C000 
C000 



.OPT P,00 
#- «C000 



70: 


C000 


A9 


16 


90: 


C002 


8D 


00 


110: 


C005 


A9 


08 


120: 


C007 


80 


18 


140: 


C00A 


AD 


11 


140: 


C00I) 


09 


20 


140: 


C00F 


8D 


11 


150: 


C012 


60 




1C000 


-Cflri3 







D0 



D0 



} GRAPH FUNCTION 26 
( 

LDA tt»16 
STA 56576 
(CHANGE BLOCK 

; 

LDA «8 
STA 53272 



LDA 53265 

ORA «32 

STA 53265 
RTS 



READY. 



88 



PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



C000 A9 16 
C002 8D 00 DD 
C005 A9 08 
C007 80 18 D0 
C00A AD 11 D0 
C00D 09 20 
C00F 8D 11 D0 
C012 60 



LDA ttS16 
STA «DO00 
LDA #»08 
STA «D018 
LDA «D011 
ORA M«20 
STA »D011 
RTS 



19. NRM 



This is the complementary routine to graph, it turns the high 
res screen off and returns to the normal text screen. 

To use type SYS 49174. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: C016 -OPT P,00 

30: C016 *- »C016 

iNORM COMMAND 



90: 


C016 


A9 


15 




LDA 


#21 


60: 


C018 


8D 


18 


D0 


STA 


S3272 


70: 


C01B 


A9 


IB 




LDA 


#27 


80: 


C01D 


8D 


11 


D0 


STA 


53265 


90: 


C020 


A9 


17 




LDA 


tt23 


100: 


C022 


8D 


00 


DD 


STA 


56576 


110: 


C025 


60 






RTS 




1C016 


-C026 













READY. 



B-K- 

PC SR AC XR YR SP 

. I 97FE 72 00 00 01 F6 

m 

C016 A9 15 LDA *»«15 

C018 8D 18 D0 STA »D018 

C01B A9 IB LDA #«1B 

C01D 8D 11 D0 STA «D011 

C020 A9 17 LDA ««17 

C022 8D 00 DD STA «DD00 

C025 60 RTS 



90 



20. CLG 



This routine clears the high res screen. Two parameters are re- 
quired. The first defines the drawing colour and the second the 
background colour. Both are values between and 15 and are 
the same as the usual text colours. 

To use type SYS 49190, drawing colour, background colour. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


C026 










.OPT 


P,00 


30: 


C026 










#= 


«C026 












; CLG 


COMMAND 


50: 


C026 


20 


FD 


AE 




JSR 


9AEFD 


60: 


C029 


20 


8A 


AD 




JSR 


«AD8A 


70: 


C02C 


20 


F7 


B7 




JSR 


SB7F7 


80: 


C02F 


AS 


IS 






LDA 


»15 


80: 


C031 


F0 


03 






BEQ 


MORE 


80: 


C033 


4C 


48 


B2 




J MP 


«B248 


90: 


C036 


AS 


14 




MORE 


LDA 


»14 


90: 


C038 


8D 


85 


C0 




STA 


FIN 


100: 


C03B 


20 


FD 


AE 




JSR 


«AEFD 


110: 


C03E 


20 


8A 


AD 




JSR 


«AD8A 


120: 


C041 


20 


F7 


B7 




JSR 


«B7F7 


130: 


C044 


AS 


IS 






LDA 


«15 


130: 


C046 


F0 


03 






BEQ 


MOREl 


130: 


C048 


4C 


48 


B2 




JMP 


«B248 


140: 


C04B 


AS 


14 




MOREl 


LDA 


«14 


140: 


C04O 


0A 








ASL 


A 


140: 


C04E 


0A 








ASL 


A 


140: 


C04F 


0A 








ASL 


A 


140: 


C050 


0A 








ASL 


A 


140: 


C051 


00 


85 


C0 




ORA 


FIN 


140: 


C054 


8D 


85 


C0 




STA 


FIN 



91 



150: 


C057 


A9 


00 






LOA 


#0 




150: 


C059 


85 


FB 






STA 


«FB 




160: 


C05B 


A9 


60 






LOA 


»96 




160: 


C05O 


85 


FC 






STA 


*FC 




170: 


C05F 


A0 


00 






LOY 


#0 




180: 


C061 


A9 


00 






LOA 


#0 




190: 


C063 


91 


FB 




LOOP 


STA 


(«FB) , 


Y 


200: 


C065 


C8 








INY 






210: 


C066 


D0 


FB 






BNE 


LOOP 




220: 


C068 


E6 


FC 






INC 


•FC 




230: 


C06A 


A6 


FC 






LOX 


»FC 




240: 


C06C 


E0 


80 






CPX 


ttl28 




250: 


C06E 


00 


F3 






BNE 


LOOP 




260: 


C070 


AO 


85 


C0 




LOA 


FIN 




270: 


C073 


A2 


00 






LOX 


#0 




280: 


C075 


90 


00 


40 


LOOPl 


STA 


«4000, 


X 


290: 


C078 


90 


00 


41 




STA 


«4100, 


X 


300: 


C07B 


90 


00 


42 




STA 


»4200, 


X 


310: 


C07E 


90 


00 


43 




STA 


44300, 


X 


320: 


C081 


E8 








I NX 






320: 


C082 


00 


Fl 






BNE 


LOOPl 




320: 


C084 


60 








RTS 






330: 


C085 








FIN 




* 




3C026 


-cer85 

















READY. 



B* 

PC SR AC XR YR SP 
. I 97FE 72 00 00 01 F6 

■ 

C026 20 FO AE JSR «AEFO 

C029 20 8A AD JSR «AD8A 

C02C 20 F7 B7 JSR «B7F7 

C02F A5 15 LOA «15 

C031 F0 03 BEQ «C036 

C033 4C 48 B2 JMP «B248 

C036 A5 14 LOA «14 



92 



C038 


8D 


85 


C0 


STA 


«C085 




C036 


20 


FO 


AE 


JSR 


«AEFO 




C03E 


20 


8A 


AO 


JSR 


«A08A 




C041 


20 


F7 


B7 


JSR 


*B7F7 




C044 


AS 


15 




LDA 


»15 




C046 


F0 


03 




BEQ 


«C04B 




C048 


4C 


48 


B2 


JMP 


»B248 




C04B 


AS 


14 




LOA 


«14 




C04D 


0A 






ASL 






C04E 


0A 






ASL 






C04F 


0A 






ASL 






C050 


0A 






ASL 






C051 


0D 


85 


C0 


ORA 


«C085 




C054 


8D 


85 


C0 


STA 


«C085 




C0S7 


A9 


00 




LDA 


tt»00 




C059 


85 


FB 




STA 


«FB 




C05B 


A9 


60 




LDA 


n*60 




C05D 


85 


FC 




STA 


«FC 




C05F 


A0 


00 




LDY 


#«00 




C061 


A9 


00 




LDA 


#»00 




C063 


91 


FB 




STA 


<«FB) , 


Y 


C065 


C8 






INY 






C066 


D0 


FB 




BNE 


«C063 




C068 


E6 


FC 




INC 


«FC 




C06A 


A6 


FC 




LDX 


«FC 




C06C 


E0 


80 




CPX 


#«80 




C06E 


00 


F3 




BNE 


«C063 




C070 


AD 


85 


C0 


LDA 


«C085 




C073 


A2 


00 




LDX 


«»»00 




C075 


9D 


00 


40 


STA 


«4000, 


X 


C078 


9D 


00 


41 


STA 


94100, 


X 


C07B 


9D 


00 


42 


STA 


«4200, 


X 


C07E 


9D 


00 


43 


STA 


»4300, 


X 


C081 


E8 






I NX 






C082 


00 


Fl 




BNE 


•C075 




C084 


60 






RTS 







93 



21. Plot 



This routine plots a point on tlie high res screen . It requires 
two parameters: the X coordinate (0-319) and the Y coordinate 
(0-199) to be plotted. 

The syntax is SYS 49286,X coord, Y coord. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: C08A .OPT P,00 

30: C08A *= *C0SA 

40: C08A XCOORD = «14 



;and «15 

50: C08A 

60: C08A 

70: C08A 

80: C08A 

90: C08A 

100: C08A 

130: C08A A9 00 

140: C08C 8D 3A CI 

150: C08F 20 FD AE 
OM 

160: C092 20 EB B7 

170: C095 E0 C8 

180: C097 B0 5E 

190: C099 A5 14 

200: C09B C9 40 

210: C09D A5 15 
+ 1 



TEMP = *FD 

SCREEN = «6000 

CHECKCOM = «AEFD 

COORD = S;B7EB 

FALSE = 255 

TRUE = 

SET LDA ttTRUE 

SETl STA RSFLAG 

JSR CHECKC 

JSR COORD 

CPX *»200 

BCS TOOBIG 

LDA XCOORD 

CMP ♦*<320 

LDA XCOORD 



94 



220: C09F E9 01 
230: C0A1 B0 54 



SBC 
BCS 



#>320 
TOOBIG 



240: C0A3 SA 

250: C0A4 4A 

260: C0A5 4A 

270: C0A6 4A 

230: C0A7 0A 

290: C0A8 AS 

300: C0A9 B9 F8 C0 

Y JMULTIPLY PUT IN 

310: C0AC S5 FD 

320: C0AE B9 F9 C0 

1,Y 

330: C0B1 85 FE 



TXA 
LSR 
LSR 
LSR 
ASL 
TAY 
LDA 

STA 
LDA 



TABLE, 

TEMP 
TABLE+ 



STA TEMP+1 



340: 
350: 
0111 
360: 
370: 

380: 
390: 



C0B3 
C0B4 

C0B6 
C0B7 
C0B9 
C0BB 



8A 

29 07 
18 

65 FD 
85 FD 
A5 FE 



TXA 
AND 

CLC 
ADC 
STA 
LDA 



#%0000 



TEMP 
TEMP 
TEMP+1 



400: 
410: 



C0BD 
C0BF 



69 00 
85 FE 



ADC 
STA 



#0 

TEMP+1 



420: 

430: 
011 1 
440: 
450: 

460: 
1000 

470: 
480: 
490: 
500: 



C0C1 

C0C3 

C0C5 
C0C6 



A5 14 

29 07 
A8 

A5 14 



C0C8 29 F8 



C0CA 
C0CB 
C0CD 
C0CF 



18 

65 FD 

85 FD 

A5 FE 



LDA 

AND 

TAY 
LDA 

AND 

CLC 
ADC 
STA 
LDA 



XCOORD 
#%0000 

XCOORD 
#%1111 



TEMP 
TEMP 
TEMP+1 



95 



510: 


C0D1 


65 


15 


ADC 


+ 1 










520: 


C0D3 


85 


FE 


STA 


530: 


C0D5 


AS 


FD 


LDA 


540: 


C0D7 


18 




CLC 


550: 


C0D8 


69 


00 


ADC 


EN 










560: 


C0DA 


85 


FD 


STA 


570: 


C0OC 


A5 


FE 


LDA 


580: 


C0DE 


69 


60 


ADC 


EN 










590: 


C0E0 


85 


FE 


STA 


600: 


C0E2 


A2 


00 


LDX 


610: 


C0E4 


Al 


FD 


LDA 


X) 










620: 


C0E6 


2C 


3A CI 


BIT 



XCOORD 

TEMP+1 

TEMP 

#<SCRE 

TEMP 
TEMP+1 

«>SCRE 

TEMP+1 

tt0 

tTEMP, 
RSFLAG 



630: C0E9 10 06 
640: C0EB 39 32 CI 
K,Y 

650: C0EE 4C F4 C0 
660: C0F1 19 2A CI 
,Y 

670: C0F4 81 FD 
X) 

680: C0F6 60 

690: C0F7 60 

700: C0F8 

710: C0F8 00 00 40 

N,2*N,3*N,4*N 

720: C102 40 06 80 

N,7*N,8*N,9*N 

730: C10C 80 0C C0 

1*N, 12*N, 13*N, 14*N 

740: CI 16 C0 12 00 

6*N, 17*N, 18*N, 19*N 

750: C120 00 19 40 

1 *N , 22*N , 23*N , 24*N 



BPL SET2 
AND ANDMAS 

JMP SET3 
SET2 ORA ORMASK 

SET3 STA <TEMP, 

RTS 

TOOBIG RTS 

N = 320 

TABLE . UORD0«-N , 1 * 

. W0RD5■K■N,6^f 

. WORD10«-N, 1 

. W0RD15*N, 1 

.WORD20^(-N,2 



96 



770: C12A 80 
000 

780: C12B 40 
000 

790: C12C 20 
000 

800: C12D 10 
000 

810: C12E 08 
000 

820: C12F 04 
100 

830: C130 02 
010 

840: C131 01 
001 

860: C132 7F 
111 

870: C133 BF 
111 

880: C134 DF 
111 

890: C135 EF 
111 

900: C136 F7 
111 

910: C137 FB 
011 

920: CI 38 FD 
101 

930: C139 FE 
110 

950: C13A 00 
3C08A-C13B 

READY. 



ORMASK .BYT 
. BYT 
. BYT 
. BYT 
. BYT 
. BYT 
. BYT 
, BYT 

5 

ANDMASK . BYT 
, BYT 
. BYT 
. BYT 
. BYT 
. BYT 
. BYT 
. BYT 

5 

RSFLAQ .BYT 



% 10000 
%01000 
%00100 
%00010 
%00001 
%00000 
%00000 
%00000 

%01111 
%10111 
%11011 
%11101 
%11110 
%11111 
%11111 
%1 11 1 1 
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PC SR AC XR YR SP 
. I97FE 72 00 00 01 F6 



P AO A 


AO 
H7 






1 nA 






on 


TA 
t3H 




O 1 H 


«p 1 ^A 


OIQC 




r 11 


HEI 


TCP 

J ore 










P'7 
a/ 


TCP 


AR7PR 






UO 




ppy 

A 




uwy / 


OlO 


on 










Am 


1 A 




L_ U M 


4t A 




w7 






PMP 

will 






ri J 


1 ^ 

X ta* 




1 DA 


SIS 




PO 
C~ 


X7 X 






WT"IP X 
















OA 
On 






TV A 
1 AH 






A A 












A A 






1 QP 




wJvHO 


AA 


















A<%l 
1— 




r^A Afi 


HO 






TA Y 




MAO 


DO 

07 


CO 




1 nA 






Ow 


P Al 




QTA 




P0f AC 


07 


PO 

r 7 




1 nA 




\^XfD X 


OiC 

05 


pp 
rP 




CTA 


4PP 




OA 
OH 






TV A 
1 AH 






•^o 

^7 


Xf/ 




AMD 
















PAIR? 


Ow 


Pn 






Apn 




0"( 


pn 




QT A 
O 1 H 


9~ XJ 




A^^ 

HO 


pp 




1 HA 
L.i/H 


*PP 




AO 

07 






Anp 






OBC 


pp 
r P 




CTA 
O 1 H 


ttPP 

Wirt 




AD 


X I 




LUH 




C0C3 


Zt 


07 






II i>i rif~r 
W'P07 


C0C5 


A8 






TAY 




C0C6 


A5 


14 




LDA 


«14 


C0C8 


29 


F8 




AND 


tt«F8 


C0CA 


18 






CLC 




C0CB 


65 


FD 




ADC 


«FD 


C0CD 


85 


FD 




STA 


«FD 



C0CF 


A5 


FE 




LDA 


*FE 


C0D1 


65 


15 




ADC 


$15 


C0D3 


85 


FE 




STA 


*FE 


C0D5 


A5 


FD 




LDA 


*FD 


C0D7 


18 






CLC 




C0D8 


69 


00 




ADC 


#900 


C0DA 


85 


FD 




STA 


*FD 


C0DC 


AS 


FE 




LDA 


«FE 


C0DE 


69 


60 




ADC 


tt«60 


C0E0 


85 


FE 




STA 


«FE 


C0E2 


A2 


00 




LDX 


M«00 


C0E4 


Al 


FD 




LDA 


(*FD, X) 


C0E6 


2C 


3A 


CI 


BIT 


«C13A 


C0E9 


10 


06 




BPL 


«C0F1 


C0EB 


39 


32 


CI 


AND 


*C 1 32 , Y 


C0EE 


4C 


F4 


C0 


JMP 


«C0F4 


C0F1 


19 


2A 


CI 


ORA 


4>C 1 2 A , Y 


C0F4 


81 


FD 




STA 


<«FD, X) 


C0F6 


60 






RTS 




C0F7 


60 






RTS 





. : C0F8 


00 


00 


40 


01 


80 


02 


C0 


03 


. :ci00 


00 


05 


40 


06 


80 


07 


C0 


08 


. :ci08 


00 


0A 


40 


0B 


80 


0C 


C0 


0D 


. :cii0 


00 


0F 


40 


10 


80 


11 


C0 


12 


. :cii8 


00 


14 


40 


15 


80 


16 


C0 


17 


. :ci20 


00 


19 


40 


lA 


80 


IB 


C0 


IC 


. :C128 


00 


IE 


80 


40 


20 


10 


08 


04 


. :ci30 


02 


01 


7F 


BF 


DF 


EF 


F7 


FB 


. :C138 


FD 


FE 


00 


C2 


C9 


F0 


08 


20 



22. Unplot 

This routine is complementary to Plot. It unplots a point on the 
high res screen. Just type in the routine below and unplot is 
ready. 

To use type SYS 49286,X,Y 



30 ^t-^^cesb 

40 LOA **»FF 

50 BNE SETl 

READY. 



PC SR AC XR YR SP 

. J97FE 72 00 00 01 F6 

C086 A9 FF LDA #«FF 

C088 D0 02 BNE «C08C 
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23. Char 



This routine puts a character onto the high res screen. You speci- 
fy three parameters: the X coordinate (0-39), the Y coordinate 
(0-24) and the character code (screen code). 

The syntax is SYS 49467,X,Y,char code 



PAL (C)1979 BRAD TEMPLETON 
2 

20: C13B .OPT P,00 

30: C13B *= *C13B 



70: 


C13B 


4C 


48 


B2 


80: 


C13E 


20 


FD 


AE 


90: 


C141 


20 


ID 


C2 


100: 


C144 


A5 


14 




100: 


C146 


C9 


28 




100: 


C148 


60 


Fl 




110: 


C14A 


8D 


4B 


C2 


120: 


C14D 


20 


FD 


AE 


130: 


C150 


20 


ID 


C2 


140: 


C153 


AS 


14 




140: 


C155 


C9 


19 




140: 


C157 


B0 


E2 




150: 


C159 


80 


4C 


C2 


170: 


CISC 


AD 


4B 


C2 


180: 


C15F 


8D 


48 


C2 


190: 


C162 


A9 


08 




200: 


C164 


8D 


49 


C2 


210: 


C167 


20 


2B 


C2 


220: 


C16A 


AD 


46 


C2 



CHAR X,Y, CHARACTER, 
EOR OR DELETE 



JMP 


«B248 


JSR 


SAEFD 


JSR 


PARAMS 


LDA 


S14 


CMP 


#40 


6CS 


ERROR 


STA 


XSTORE 


JSR 


«AEFD 


JSR 


PARAMS 


LDA 


$14 


CMP 


#25 


6CS 


ERROR 


STA 


YSTORE 



! TOTAL = Y*320 + X*-8 



LDA 


XSTORE 


STA 


MULTl 


LDA 


#8 


STA 


MULT2 


JSR 


MULTIPLY 


LDA 


RESULT 
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230: 


C16D 


85 


FB 






STA 


«FB 


240: 


C16F 


AD 


47 


C2 




LDA 


RESULT* 1 


250: 


C172 


85 


FC 






STA 


»FC 












SNOW Y= 


320*Y 




280: 


CI 74 


AO 


4C 


C2 




LDA 


YSTORE 


290: 


C 177 


8D 


48 


C2 




STA 


MULTl 


300: 


C 17A 


A9 


28 






LDA 


tt40 


310: 


C17C 


8D 


49 


C2 




STA 


MULT2 


320: 


C17F 


20 


2B 


C2 




JSR 


MULTIPLY 


330: 


CI 82 


AD 


46 


C2 




LDA 


RESULT 


330: 


CI 85 


8D 


50 


C2 




STA 


STORERES 


330: 


CI 88 


AD 


47 


C2 




LDA 


RESULT+1 


330: 


C18B 


8D 


51 


C2 




STA 


STORERES+1 


340: 


C18E 


A2 


07 






LDX 


#7 


350: 


C190 


AD 


46 


C2 


LQ0P12 


LDA 


RESULT 


350: 


C193 


6D 


50 


C2 




ADC 


STORERES 


360: 


C196 


8D 


46 


C2 




STA 


RESULT 


360: 


CI 99 


AD 


47 


C2 




LDA 


RESULT+1 


370: 


C19C 


69 


00 






ADC 


#0 


370: 


C19E 


8D 


47 


C2 




STA 


RESULT+1 


380: 


ClAl 


CA 








DEX 




390: 


C1A2 


D0 


EC 






BNE 


L00P12 


400: 


C1A4 


A2 


07 






LDX 


#7 


410: 


C1A6 


AD 


47 


C2 


L00P14 


LDA 


RESULT+1 


420: 


C1A9 


18 








CLC 




420: 


ClAA 


6D 


51 


C2 




ADC 


STORERES+1 


430: 


ClAD 


8D 


47 


C2 




STA 


RESULT+1 


440: 


C1B0 


CA 








DEX 




450: 


ClBl 


D0 


F3 






BNE 


L00P14 


460: 


C1B3 


AD 


47 


C2 




LDA 


RESULT+1 


470: 


C1B6 


18 








CLC 




470: 


C1B7 


69 


60 






ADC 


#«60 


480: 


C1B9 


8D 


47 


C2 




STA 


RESULT+1 


490: 


CIBC 


A5 


FB 






LDA 


•FB 


500: 


CIBE 


18 








CLC 




500: 


CIBF 


6D 


46 


C2 




ADC 


RESULT 


510: 


C1C2 


85 


FB 






STA 


»FB 


520: 


C1C4 


A5 


FC 






LDA 


»FC 


530: 


C1C6 


6D 


47 


C2 




ADC 


RESULT+1 


540: 


C1C9 


85 


FC 






STA 


«FC 



550: 


CICB 


20 


FD 


AE 




JSR 


»AEFO 


560: 


CICE 


20 


ID 


C2 




JSR 


PARAMS 


570: 


ClDl 


A5 


14 






LOA 


«14 


580: 


C1D3 


8D 


4E 


C2 




STA 


CHAR 


590: 


C1D6 


AD 


4E 


C2 




LDA 


CHAR 


600: 


C1D9 


80 


48 


C2 




STA 


MULTl 


610: 


CIDC 


A9 


08 






LDA 


«8 


620: 


CIDE 


8D 


49 


C2 




STA 


MULT2 


630: 


ClEl 


20 


2B 


C2 




JSR 


MULTIPLY 


640: 


C1E4 


AD 


46 


C2 




LOA 


RESULT 












; CHARACTER 


LOCATION 


650: 


C1E7 


85 


FD 






STA 


«FD 


660: 


C1E9 


AD 


47 


C2 




LOA 


RESULT* 1 


670: 


ClEC 


18 








CLC 














; ADO 


«D0 TO «D000 


670: 


CIED 


69 


D0 






ADC 


tt$O0 


680: 


CIEF 


85 


FE 






STA 


»FE 


690: 


ClFl 


A9 


00 






LDA 


tt0 


690: 


C1F3 


8D 


4A 


C2 




STA 


COUNT 


690: 


C1F6 


78 








SEI 




690: 


C1F7 


A9 


33 






LDA 


ttSl 


690: 


C1F9 


85 


01 






STA 


«01 


700: 


CIFB 


A0 


00 






LDY 


tt0 


710: 


CIFD 


Bl 


FD 




LOOPl 


LOA 


<«FD) , Y 


720: 


CIFF 


91 


FB 






STA 


«»FB) , Y 


730: 


C201 


E6 


FB 






INC 


«FB 


730: 


C203 


D0 


02 






BNE 


Nl 


740: 


C205 


E6 


FC 






INC 


«FC 


750: 


C207 


E6 


FD 




Nl 


INC 


*FD 


760: 


C209 


D0 


02 






BNE 


N2 


770: 


C20B 


E6 


FE 






INC 


«FE 


780: 


C20D 


EE 


4A 


C2 


N2 


INC 


COUNT 


790: 


C210 


AD 


4A 


C2 




LOA 


COUNT 


800: 


C213 


C9 


08 






CMP 


4*8 


810: 


C215 


D0 


E6 






BNE 


LOOPl 


820: 


C217 


A9 


37 






LDA 


tt55 


820: 


C219 


85 


01 






STA 


1 


820: 


C21B 


58 








CLI 




820: 


C21C 


60 








RTS 




830: 


C210 


20 


8A 


AD 


PARAMS 


JSR 


«AD8A 


840: 


C220 


20 


F7 


B7 




JSR 


«B7F7 



103 



8S0: 


C223 


A5 


15 




850: 


C225 


F0 


03 




860: 


C227 


4C 


48 


B2 


860: 


C22A 


60 






870: 


C22B 


A9 


00 




880: 


C22D 


8D 


46 


C2 


890: 


C230 


A2 


08 




900: 


C232 


4E 


48 


C2 


910: 


C235 


90 


04 




920: 


C237 


18 






930: 


C238 


6D 


49 


C2 


9 Aid; 


C236 


6A 








C23C 


6E 


46 


C2 


960: 


C23F 


CA 






970: 


C240 


00 


F0 




980: 


C242 


8D 


47 


C2 


990; 


C245 


60 






1000: 


C246 


00 


00 




1010: 


C248 


00 






1020: 


C249 


00 






1030: 


C24A 


00 






1040: 


C24B 


00 






1050: 


C24C 


00 






1060: 


C24D 


00 






1070: 


C24E 


00 






1080: 


C24F 


00 






1090: 


C250 


00 


00 




3C13B 


-C252 









READY. 





LOA 


«15 




BEQ 


FINROUT 




J MP 


«B248 


FINROUT 


RTS 




MULTIPLY 


LDA 


#0 




STA 


RESULT 




LDX 


M8 


L00P21 


LSR 


MULTl 




BCC 


L00P9 




CLC 






ADC 


MULT2 


L00P9 


ROR 


A 




ROR 


RESULT 




DEX 






BNE 


L00P21 




STA 


RESULT+ 




RTS 




RESULT 


. UORD0 


MULTl 


.BYT 





MULT2 


• BYT 





COUNT 


• BYT 





XSTORE 


.BYT 





YSTORE 


.BYT 





EORFLAG 


.BYT 





CHAR 


.BYT 





STORE 


.BYT 





STORERES 


. WORD0 



PC SR AC XR YR SP 
. ; 97FE 72 00 00 01 F6 

■ 

C13B 4C 48 B2 JMP «B248 

C13E 20 FD AE JSR »AEFD 

C141 20 ID C2 JSR «C21D 



104 



C144 


A5 


14 




LDA 


«14 


C146 


C9 


28 




CMP 


««28 


C148 


B0 


Fl 




ECS 


«C13B 


C14A 


8D 


4B 


C2 


STA 


«C24B 


C14D 


20 


FD 


AE 


JSR 


9AEFD 


C150 


20 


ID 


C2 


JSR 


«C21D 


C1S3 


AS 


14 




LDA 


»14 


C155 


C9 


19 




CMP 


#«19 


CIS? 


B0 


E2 




BCS 


«C13B 


C1S9 


8D 


4C 


C2 


STA 


«C24C 


C15C 


AD 


4B 


C2 


LDA 


«C24B 


C15F 


8D 


48 


02 


STA 


»C248 


C162 


A9 


08 




LDA 


t»»08 


C164 


8D 


49 


C2 


STA 


«C249 


C167 


20 


2B 


C2 


JSR 


»C22B 


C16A 


AD 


46 


C2 


LDA 


«C246 


C16D 


85 


FB 




STA 


»FB 


C16F 


AD 


47 


C2 


LDA 


»C247 


C172 


85 


FC 




STA 


«FC 


C174 


AD 


4C 


C2 


LDA 


«C24C 


C177 


8D 


48 


C2 


STA 


•C248 


C17A 


A9 


28 




LDA 


tt«28 


C17C 


8D 


49 


C2 


STA 


•C249 


C17F 


20 


2B 


C2 


JSR 


»C22B 


C182 


AD 


46 


C2 


LDA 


«C246 


C185 


8D 


50 


C2 


STA 


»C2S0 


C188 


AD 


47 


C2 


LDA 


»C247 


C18B 


8D 


51 


C2 


STA 


«C2S1 


C18E 


A2 


07 




LDX 


♦♦»07 


C190 


AD 


46 


C2 


LDA 


«C246 


C193 


6D 


50 


C2 


ADC 


CC250 


CI 96 


8D 


46 


C2 


STA 


«C246 


C199 


AD 


47 


C2 


LDA 


•C247 


C19C 


69 


00 




ADC 


1**00 


C19E 


8D 


47 


C2 


STA 


»C247 


ClAl 


CA 






DEX 




C1A2 


D0 


EC 




BNE 


«C190 


C1A4 


A2 


07 




LDX 


««07 


C1A6 


AD 


47 


C2 


LDA 


»C247 


C1A9 


18 






CLC 




ClAA 


6D 


SI 


C2 


ADC 


«C251 



ClAD 


8D 


47 


C2 


STA 


«C247 


C1B0 


CA 






DEX 




ClBl 


D0 


F3 




BNE 


«C1A6 


C1B3 


AD 


47 


C2 


LDA 


«C247 


C1B6 


18 






CLC 




C1B7 


69 


60 




ADC 


#«60 


C1B9 


8D 


47 


C2 


STA 


«C247 


CIBC 


AS 


FB 




LDA 


«FB 


CI BE 


18 






CLC 




CIBF 


6D 


46 


C2 


ADC 


«C246 


C1C2 


85 


FB 




STA 


«FB 


C1C4 


AS 


FC 




LDA 


«FC 


C1C6 


6D 


47 


C2 


ADC 


«C247 


C1C9 


85 


FC 




STA 


«FC 


CICB 


20 


FD 


AE 


JSR 


«AEFD 


CICE 


20 


ID 


C2 


JSR 


«C21D 


ClDl 


AS 


14 




LDA 


«14 


C1D3 


80 


4E 


C2 


STA 


«C24E 


C1D6 


AD 


4E 


C2 


LDA 


4IC24E 


C1D9 


8D 


48 


C2 


STA 


«C248 


CIDC 


A9 


08 




LDA 


#908 


CIDE 


8D 


49 


C2 


STA 


»C249 


ClEi 


20 


2B 


C2 


JSR 


«C22B 


C1E4 


AD 


46 


C2 


LDA 


«C246 


C1E7 


85 


FD 




STA 


«FD 


C1E9 


AD 


47 


C2 


LDA 


•C247 


ClEC 


18 






CLC 




CIED 


69 


D0 




ADC 


tt«D0 


CIEF 


85 


FE 




STA 


*FE 


ClFl 


A9 


00 




LDA 


tt«00 


C1F3 


8D 


4A 


C2 


STA 


«C24A 


C1F6 


78 






SEI 




C1F7 


A9 


33 




LDA 


#«33 


C1F9 


85 


01 




STA 


$01 


CIFB 


A0 


00 




LDY 


tt»00 


CIFD 


Bl 


FD 




LDA 


(•FD) , Y 


CIFF 


91 


FB 




STA 


(*FB) , Y 


C201 


E6 


FB 




INC 


*FB 


C203 


D0 


02 




BNE 


«C207 


C205 


E6 


FC 




INC 


*FC 


C207 


E6 


FD 




INC 


«FD 



C209 


00 


02 




BNE 


«C20D 


C20B 


E6 


FE 




INC 


*FE 


C20D 


EE 


4A 


C2 


INC 


«C24A 


C210 


AD 


4A 


C2 


LOA 


«C24A 


C213 


C9 


08 




CMP 


tt«08 


C215 


D0 


E6 




BNE 


»C1FD 


C217 


A9 


37 




LDA 


»»*37 


C219 


85 


01 




STA 


«01 


C21B 


58 






CLI 




C21C 


60 






RTS 




C21D 


20 


8A 


AD 


JSR 


»AD8A 


C220 


20 


F7 


B7 


JSR 


»B7F7 


C223 


A5 


15 




LDA 


»15 


C225 


F0 


03 




BEQ 


«C22A 


C227 


4C 


48 


B2 


J MP 


»B248 


C22A 


60 






RTS 




C22B 


A9 


00 




LDA 


4*»00 


C22D 


8D 


46 


C2 


STA 


«C246 


C230 


A2 


08 




LDX 


M»08 


C232 


4E 


48 


C2 


LSR 


«C248 


C235 


90 


04 




BCC 


•C23B 


C237 


18 






CLC 




C238 


60 


49 


C2 


ADC 


«C249 


C23B 


6A 






ROR 




C23C 


6E 


46 


C2 


ROR 


*C246 


C23F 


CA 






DEX 




C240 


00 


F0 




BNE 


«C232 


C242 


80 


47 


C2 


STA 


*C247 


C24S 


60 






RTS 





:C246 00 00 00 00 00 00 00 00 
:C24E 00 00 00 00 10 CF A5 BA 
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24. Change bank 



This routine allows easy access to the four 16K banks accessi- 
ble by the VIC II chip. It does not copy the character set down. 
To do this, use the copy routine given above. 

The syntax is SYS 828, bank (0-3) 

where bank is 0-16383 , 1 is 16384 to 32767 and so on. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 033C .OPT P,00 

30: 033C 828 

; ROUTINE TO CHANGE 
; BANK FOR 
;VIC II CHIP 

S SYNTAX 



SYS 828, BANK (0-3) 



130: 


033C 


20 


FD 


AE 


JSR 


«AEFO 


140: 


033F 


20 


9E 


B7 


JSR 


SB79E 


150: 


0342 


8A 






TXA 




160: 


0343 


C9 


05 




CMP 


#5 


170: 


0345 


90 


03 




BCC 


MORE 


180: 


0347 


4C 


48 


B2 

• 


J MP 


«B248 


200: 


034A 


AA 




> 

MORE 


TAX 




210: 


034B 


60 


63 


03 


LDA 


L5327 


220: 


034E 


8D 


18 


00 


STA 


53272 


230: 


0351 


BD 


67 


03 


LDA 


L648, 


240: 


0354 


8D 


88 


02 


STA 


648 



108 



*^ K ya( • 


0357 


60 


6B 


03 




LOA 


L56576, X 


260: 


035A 


8D 


00 


DD 




STA 


56576 


270: 


035D 


A9 


93 






LDA 


*♦"* 


280: 


035F 


20 


D2 


FF 




JSR 


«FFD2 


270 ; 












RTS 








t 

I 3 




1 D 


> 

1 CI -» O ~7 O 


O V T 

. BYT 




320: 


0367 


04 


04 


04 


L648 


.BYT 


4,4,4,4 


330: 


036B 


47 


46 


45 


L56576 


. BYT 


71 , 70, 69 



3033C-036F 
READY. 



B* 

PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



033C 


20 


FD 


AE 


JSR 


«AEFD 


033F 


20 


9E 


B7 


JSR 


«B79E 


0342 


8A 






TXA 




0343 


C9 


05 




CMP 


#«05 


0345 


90 


03 




BCC 


«034A 


0347 


4C 


48 


B2 


J MP 


«B248 


034A 


AA 






TAX 




034B 


BO 


63 


03 


LDA 


«0363,X 


034E 


80 


18 


00 


STA 


$0018 


0351 


BD 


67 


03 


LDA 


$0367, X 


0354 


80 


88 


02 


STA 


«0288 


0357 


BO 


6B 


03 


LDA 


«036B,X 


035A 


80 


00 


00 


STA 


«DD00 


0350 


A9 


93 




LOA 


««93 


035F 


20 


02 


FF 


JSR 


«FF02 


0362 


60 






RTS 





:0363 15 15 15 15 04 04 04 04 
:036B 47 46 45 44 00 20 74 03 
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25. Invert 



This routine inverts all or sonne of the high res screen (it can 
invert any part of memory). 

The syntax is SYS 49746,start, invert 



PAL (C)1979 BRAD TEMPLETON 
2 

20: C252 .OPT P,00 

30: C252 *= *C2S2 

5FILL ROUTINE 

I 

;USES «FB AND »FC 
; STORE TOP ADDRESS 
;IN 828 AND 829 
;SCAN PAST COMMA 
90: C252 20 FD AE JSR «AEFD 

{READ 16 BIT NUMBER 



100: 


C255 


20 


8A 


AD 


JSR 


$AD8A 












;PUT INTO «14 AND ' 


110: 


C258 


20 


F7 


B7 


JSR 


»B7F7 


120: 


C2SB 


AS 


14 




LDA 


»14 


120: 


C25D 


85 


FB 




STA 


«FB 


130: 


C2SF 


A5 


15 




LDA 


«15 


130: 


C261 


85 


FC 




STA 

■ 


«FC 


150: 


C263 


20 


FD 


AE 


> 

JSR 


»AEFD 



5 SCAN PAST NEXT COMMA 



160: 


C266 


20 


8A 


AD 


JSR 


«AD8A 


170: 


C269 


20 


F7 


B7 


JSR 


»B7F7 


180: 


C26C 


AS 


14 




LDA 


«14 


180: 


C26E 


8D 


3C 


03 


STA 


828 


190: 


C271 


AS 


15 




LDA 


$15 


190: 


C273 


8D 


3D 


03 


STA 


829 



110 



i 



210: 


C276 


A0 


00 




LOOP 


LDY 


»0 


220: 


C278 


A9 


FF 






LDA 


tt255 


230: 


C27A 


51 


FB 






EOR 


(»FB) , Y 


240: 


C27C 


91 


FB 






STA 


<»FB) , Y 


250: 


C27E 


20 


95 


C2 




JSR 


ADD 


260: 


C281 


A5 


FB 






LDA 


«FB 


260: 


C283 


CD 


3C 


03 




CMP 


828 


260: 


C286 


F0 


03 






BEQ 


CHECK 


270: 


C288 


4C 


76 


C2 




JMP 


LOOP 


280: 


C28B 


AS 


FC 




CHECK 


LDA 


»FC 


280: 


C28D 


CD 


3D 


03 




CMP 


829 


280: 


C290 


F0 


0B 






BEQ 


FINISH 


290: 


C292 


4C 


76 


C2 




JMP 


LOOP 


300: 


C295 


E6 


FB 




ADD 


INC 


»FB 


300: 


C297 


F0 


01 






BEQ 


FCPLUSl 


310: 


C299 


60 








RTS 




320: 


C29A 


E6 


FC 




FCPLUSl 


INC 


«FC 


320: 


C29C 


60 








RTS 




330: 


C29D 


60 






FINISH 


RTS 




3C252- 


C29E 















READY. 



PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



• 

C252 20 FD AE 
C255 20 8A AD 
C258 20 F7 B7 
C25B A5 14 
C25D 85 FB 
C25F A5 15 
C261 85 FC 
C263 20 FD AE 



JSR «AEFD 
JSR »AD8A 
JSR «B7F7 
LDA «14 
STA «FB 
LDA »15 
STA «FC 
JSR «AEFD 





Zw 


oA 


AD 


JSR 


$AD8A 




20 


r 7 


B7 


JSR 


*B7F7 




hd 






LDA 


414 




on 
oil 




OtT 


STA 


$03 3 C 




ABC 


1 IS 

1 5 




LDA 


415 








03 


STA 


403 3D 






loio 




LDY 


#400 




AO 


rr 




1 n A 

LDA 








crrt 
r II 




BUR 


<*FB) , 




O 1 

VI 


CD 

r JS 




STA 


(*FB) , 




4M 


yD 




JSR 


$C295 




ABC 






LDA 


*FB 






^p 


03 


CPir 


903 3C 




cm 






rr 

BEQ 


$C28B 




*tu 


-7 ^ 

7o 


cz 


J MP 


4C276 




A K 

HO 


rC 




LDA 


*FC 




r* n 


"TH 


03 


CMP 


$03 3D 




cot 


OTD 




BEQ 


4C29D 




4r* 


/€> 


cz 


J MP 


4C276 




1™ ^ 

CO 


FB 




INC 


•FB 






01 




BEQ 


*C29A 




O0 






RTS 




o o A 


c 

CO 


rC 




INC 


*FC 


C29C 


60 






RTS 




C290 


60 






RTS 





26. Organ 



The following is a simple interrupt driven organ program. It al- 
lows you to play a tune on the keyboard whether a program 
is running or not. The program could run with a sound shaping 
program, for example. 

The keys used are as follows: 

qwertyuiop@* t 

and the space bar to turn the notes off 

To turn on the organ type SYS 49152. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


C000 








. OPT 


P,00 


30: 


C000 








*= 


«C000 


50: 


C000 


78 






SEI 




50: 


C001 


A9 


IF 




LOA 


#<MAII 


50: 


C003 


8D 


14 


03 


STA 


788 


60: 


C006 


A9 


C0 




LDA 


#>MAII 


60: 


C008 


80 


15 


03 


STA 


789 


70: 


C00B 


A9 


0F 




LDA 


«15 


70: 


C00D 


8D 


18 


D4 


STA 


54296 


70: 


C010 


A9 


21 




LDA 


#33 


70: 


C012 


8D 


04 


D4 


STA 


54276 


70: 


C015 


A9 


38 




LDA 


«<56 


70: 


C017 


8D 


05 


D4 


STA 


54277 


70: 


C01A 


8D 


06 


D4 


STA 


54278 


70: 


C01D 


58 






CLI 




70: 


C01E 


60 






RTS 





113 



90: 


C01F 


A5 


C5 


MAIN 


LDA 


197 


100: 


C021 


A2 


00 




LDK 


#0 


100: 


C023 


A0 


00 




LDY 


tt0 


1 10: 


C025 


DD 


43 


C0 LOOP 


CMP 


KEYDAT 


A , X 














1 20: 


C028 


F0 


0A 




BEQ 


PLAYNO 


TE 














130: 


C02A 


E8 






INX 




130: 


C02B 


C8 






INY 




130: 


C02C 


C8 






INY 




140: 


C02D 


E0 


0F 




CPX 


l»15 


150: 


C02F 


D0 


F4 




BNE 


LOOP 


1 60: 


C031 


4C 


31 


EA 


JMP 


$EA31 


180: 


C034 






9 

PLAYNOTE 




* 


190: 


C034 


B9 


51 


C0 


LDA 


NOTETA 


BLE, Y 














190: 


C037 


8D 


01 


D4 


STA 


54273 


190: 


C03A 


B9 


52 


C0 


LDA 


NOTETA 


BLE+l 


> Y 












190: 


C03D 


8D 


00 


D4 


STA 


54272 


200: 


C040 


4C 


31 


EA 


JMP 


$EA31 


210: 


C043 


3E 


09 


0E KEYDATA 


. BYT 


62,9, 1 


4, 17, 


22,25,: 


30,: 


33, 


38, 41 






220: 


C04D 


2E 


31 


36 


. BYT 


46,49, 


54, 60 














240: 


C051 


11 


25 


5 

13 NOTETABLE 


:. BYT 


17,37, 


19, 63 


,21, 154,22,2: 


27 






250: 


C059 


19 


Bl 


IC 


. BYT 


25, 177 


,28,214,32,' 


94,: 


34, 


75, 38, 126,43, 


52 




260: 


C065 


2D 


C6 


33 


. BYT 


45, 198 



,51,97,57, 172,0,0 
3C000-C06D 



PC SR AC XR YR SP 
. I97FE 72 00 00 01 F6 

114 



C000 


78 






SEI 




C001 


A9 


IF 




LDA 


ttClF 


C£f03 


8D 


14 


03 


STA 


«0314 


C006 


A9 


C0 




LDA 


tt«C0 


C008 


8D 


15 


03 


STA 


90315 


C00B 


A9 


0F 




LDA 


#«0F 


C00D 


8D 


IS 


D4 


STA 


«D418 


C010 


A9 


21 




LDA 


tt«21 


C012 


8D 


04 


D4 


STA 


«D404 


C019 


A9 


38 




LDA 


tt«38 


C017 


8D 


05 


D4 


STA 


«D405 


C01A 


8D 


06 


D4 


STA 


«D406 


C01D 


58 






CLI 




C01E 


60 






RTS 




C01F 


A5 


C5 




LDA 


«C5 


C021 


A2 


00 




LDX 


tt»00 


C023 


A0 


00 




LDY 


««00 


C025 


DD 


43 


C0 


CMP 


»C043,X 


C028 


F0 


0A 




BEQ 


»C034 


C02A 


E8 






I NX 




C026 


C8 






INY 




C02C 


C8 






INY 




C02D 


E0 


0F 




CPX 


#»0F 


C02F 


D0 


F4 




BNE 


»C025 


C031 


4C 


31 


EA 


JMP 


«EA31 


C034 


B9 


51 


C0 


LDA 


»C051, Y 


C037 


8D 


01 


D4 


STA 


«D401 


C03A 


B9 


52 


C0 


LDA 


«C052, Y 


C03D 


8D 


00 


D4 


STA 


«D400 


C040 


4C 


31 


EA 


JMP 


»EA31 



:C043 3E 09 0E 11 16 19 IE 21 

:C04B 26 29 2E 31 36 3C 11 25 

:C053 13 3F 15 9A 16 E3 19 Bl 

:C05B IC D6 20 5E 22 4B 26 7E 

:C063 2B 34 2D C6 33 61 39 AC 

:C06B 00 00 80 D0 P3 AD 85 C0 



27. Sound 



This routine makes sound much easier to use. It allows you to 
set the voice, volume, frequency and waveform for the sound. 

The syntax is SYS 16384,voice,volume,frequency,waveform. 

The voice is between 1 and 3. The volume is between and 
15. The frequency is between and 65535. The waveform is 
one of 17 (triangle), 33 (sawtooth) and 129 (noise). Pulse wave- 
form is not implemented. It can be set but it will not function. 

The ADSR and all other features of the SID chip are set auto- 
matically. 

To produce a rising tone the following routine could be used. 

FOR A = TO 65535 STEP100 : 
SYS16384,1,15,A,33:NEXT:SYS16384,1,0,0,33 

The last statement turns off the sound. 



PAL (0 1979 BRAD TEMPLETON 
2 

20: 4000 .OPT P,00 

30: 4000 ^= $4000 

; 

; SOUND ROUTINE 

J 

; SYNTAX ; 

■ SYS 16384, VOICE, 
VOLUME, FREQ, WAVE 
JSR «AEFD 
JSR «AD8A 



110: 4000 20 FD AE 
120: 4003 20 8 A AD 



116 



130: 


4006 


20 


F7 


B7 


JSR 


«B7F7 


140: 


4009 


A5 


15 




LDA 


«15 


150: 


400B 


00 


3F 




BNE 


IQERR 


160: 


400D 


A5 


14 




LDA 


«14 


170: 


400F 


80 


OA 


40 

■ 


STA 


VOICE 


190: 


4012 


20 


FO 


AE 


JSR 


«AEFO 


200: 


4015 


20 


8A 


AD 


JSR 


«AD8A 


210: 


4018 


20 


F7 


B7 


JSR 


*B7F7 


220: 


401B 


A5 


15 




LDA 


«1S 


Z30: 


401 D 


D0 


2D 




BNE 


IQERR 


240: 


401F 


AS 


14 




LDA 


$14 


230: 


4021 


80 


DB 


40 

■ 


STA 


VOLUME 


270: 


4024 


20 


FO 


* 

AE 


JSR 


»AEFO 


280: 


4027 


20 


8A 


AD 


JSR 


«AD8A 


290: 


402A 


20 


F7 


B7 


JSR 


«B7F7 


300: 


402D 


AS 


14 




LDA 


»14 


310: 


402F 


80 


DO 


40 


STA 


FREQ 


320: 


4032 


AS 


15 




LDA 


SIS 


330: 


4034 


80 


OE 


40 


STA 


FREQ+1 



f 



350: 


4037 


20 


FO 


AE 




JSR 


»AEFD 


360: 


403A 


20 


8A 


AD 




JSR 


«AD8A 


370: 


4030 


20 


F7 


B7 




JSR 


*B7F7 


380: 


4040 


AS 


15 






LOA 


»15 


390: 


4042 


00 


08 






BNE 


IQERR 


400: 


4044 


A5 


14 






LDA 


«14 


410: 


4046 


80 


DC 


40 




STA 


WAVE 


420: 


4049 


4C 


4F 


40 




J MP 


DO 


430: 


404C 


4C 


48 


B2 


IQERR 
• 


J MP 


«B248 


450: 


404F 


A2 


00 




1 

00 


LDX 


#0 


450: 


4051 


AO 


DC 


40 




LOA 


WAVE 


460: 


4054 


DO 


OF 


40 


LOP 


CMP 


WAVET/ 


470: 


4057 


F0 


08 






BEQ 


MORE 


480: 


4059 


E8 








INX 




480: 


405A 


E0 


04 






CPX 


#4 


490: 


405C 


00 


F6 






BNE 


LOP 


500: 


40SE 


4C 


4C 


40 




JMP 


IQERR 


510: 


4061 


AO 


DA 


40 


MORE 


LOA 


VOICE 



117 



520: 


4064 


F0 


E6 






BEQ 




530: 


4066 


C9 


04 






CMP 


#4 


540: 


4068 


B0 


E2 






BCS 


IQERR 


560: 


406A 


AO 


DB 


40 




LDA 




570: 


406D 


C9 


10 






CMP 


#16 


580: 


406F 


B0 


DB 






BCS 


IQERR 


600: 


4071 


AD 


DB 


40 


i 


LDA 


VOLUME 


610: 


4074 


8D 


18 


D4 




BTA 


^ ^ ~ o 


630: 


4077 


AD 


DA 


40 


1 


LDA 


VOICE 


650: 


407A 


C9 


01 




; 


CMP 


ttl 


660: 


407C 


F0 


07 






BEQ 


VOICEl 


670: 


407E 


C9 


02 






CMP 


#2 


680: 


4080 


F0 


20 






BEQ 


V0ICE2 


690: 


4082 


4C 


BF 


40 




JMP 


V0ICE3 


710: 


4085 


AD 


DC 


40 


i 

VOICEl 


LDA 


WAVE 


720: 


4088 


8D 


04 


D4 




STA 


54276 


730; 


408B 


A9 


80 






LDA 


ttl28 


740: 


408D 


8D 


05 


D4 




STA 


54277 


750: 


4090 


8D 


06 


D4 




STA 


54278 


760: 


4093 


AD 


DD 


40 




LDA 


FREQ 


770; 


4096 


8D 


00 


D4 




STA 


54272 


780: 


4099 


AD 


DE 


40 




LDA 




790: 


409C 


8D 


01 


D4 




STA 


54273 


800: 


409F 


4C 


D9 


40 




JMP 


FINISH 


820: 


40A2 


AD 


DC 


40 


; 

V0ICE2 


LDA 


WAVE 


830: 


40A5 


8D 


0B 


D4 




STA 


54283 


840: 


40A8 


A9 


80 






LDA 


4tl28 


850: 


40AA 


8D 


0C 


D4 




STA 


54284 


860: 


40AD 


8D 


0D 


D4 




STA 


54285 


870: 


40B0 


AD 


DD 


40 




LDA 


FREQ 


880: 


40B3 


8D 


07 


D4 




STA 


54279 


890: 


40B6 


AD 


DE 


40 




LDA 


FREQ+1 


900: 


40B9 


8D 


08 


D4 




STA 


54280 


910: 


40BC 


4C 


D9 


40 




JMP 


FINISH 



118 



930: 


40BF 


AO 


OC 


40 


V0ICE3 


LOA 


WAVE 


940: 


40C2 


80 


12 


04 




STA 


54290 


950: 


40C5 


A9 


80 






LOA 


ttl28 


960: 


40C7 


80 


13 


04 




STA 


54291 


970: 


40CA 


80 


14 


04 




STA 


54292 


980: 


40CO 


AO 


00 


40 




LOA 


FREQ 


990: 


4000 


80 


0E 


04 




STA 
Win 


W*t A.0O 


1000: 


40D3 


AO 


OE 


40 




LOA 


FREQ+1 


1010: 


40D6 


80 


0F 


04 


■ 


STA 


54287 


1030: 


40D9 


60 






1 

FINISH 


RTS 




1040: 


40DA 


00 






VOICE 


• BYT 





1050: 


40DB 


00 






VOLUME 


.BYT 





1060: 


40OC 


00 






WAVE 


.BYT 





1070: 


40DD 


00 


00 




FREQ 


. WORO0 


1080: 


40DF 


11 


21 


41 


WAVETABLE.BYT 


17,33,: 


34000 


-40E3 















READY. 



PC SR AC XR YR SP 
. J 97FE 72 00 00 01 F6 



4000 


20 


FO 


AE 


JSR 


«AEFD 


4003 


20 


8A 


AO 


JSR 


»AD8A 


4006 


20 


F7 


B7 


JSR 


«B7F7 


4009 


A5 


15 




LOA 


«15 


400B 


00 


3F 




BNE 


«404C 


4000 


A5 


14 




LOA 


»14 


400F 


80 


OA 


40 


STA 


»40DA 


4012 


20 


FO 


AE 


JSR 


»AEFD 


4015 


20 


8A 


AD 


JSR 


«A08A 


4018 


20 


F7 


B7 


JSR 


•B7F7 


401B 


AS 


15 




LOA 


«15 


4010 


00 


20 




BNE 


»404C 


401F 


A5 


14 




LOA 


«14 



119 



4021 


8D 


DB 


40 


STA 


»40DB 


4024 


20 


FD 


AE 


JSR 


«AEFD 


4027 


20 


8A 


AD 


JSR 


»AD8A 


402A 


20 


F7 


B7 


JSR 


*B7F7 


402D 


AS 


14 




LDA 


»14 


402F 


8D 


DD 


40 


STA 


«40DD 


4032 


AS 


15 




LDA 


«15 


4034 


8D 


DE 


40 


STA 


«40DE 


4037 


20 


FD 


AE 


JSR 


«AEFD 


403A 


20 


8A 


AD 


JSR 


«AD8A 


403D 


20 


F7 


B7 


JSR 


«B7F7 


4040 


A5 


15 




LDA 


«15 


4042 


00 


08 




BNE 


S404C 


4044 


A5 


14 




LDA 


«14 


4046 


8D 


DC 


40 


STA 


«40DC 


4049 


4C 


4F 


40 


JMP 


«404F 


404C 


4C 


48 


B2 


J MP 


«B248 


404F 


A2 


00 




LDX 


#«00 


4091 


AD 


DC 


40 


LDA 


»40DC 


4054 


DD 


DF 


40 


CMP 


«40DF , X 


4037 


F0 


08 




BEG) 


$4061 


4059 


E8 






I NX 




405A 


E0 


04 




CPX 


M«04 


405C 


D0 


F6 




BNE 


«40S4 


405E 


4C 


4C 


40 


JMP 


«404C 


4061 


AD 


DA 


40 


LDA 


«40DA 


4064 


F0 


E6 




BEQ 


C404C 


4066 


C9 


04 




CMP 


#«04 


4068 


B0 


E2 




BCS 


C404C 


406A 


AD 


DB 


40 


LDA 


«40DB 


406D 


C9 


10 




CMP 


tt«10 


406F 


B0 


DB 




BCS 


«404C 


4071 


AD 


DB 


40 


LDA 


«40D6 


4074 


8D 


18 


D4 


STA 


«D418 


4077 


AD 


DA 


40 


LDA 


«40DA 


407A 


C9 


01 




CMP 


#«01 


407C 


F0 


07 




BEQ 


«4085 


407E 


C9 


02 




CMP 


tt«02 


4080 


F0 


20 




BEQ 


«40A2 


4082 


4C 


BF 


40 


JMP 


«40BF 


4085 


AD 


DC 


40 


LDA 


940DC 



120 



4088 


8D 


04 


D4 


STA 


«D404 


408B 


A9 


80 




LDA 


tt$80 


408D 


8D 


05 


D4 


STA 


»D405 


4090 


8D 


06 


D4 


STA 


»D406 


4093 


AD 


DD 


40 


LDA 


«40DD 


4096 


8D 


00 


D4 


STA 


»D400 


4099 


AD 


DE 


40 


LDA 


«40DE 


409C 


8D 


01 


D4 


STA 


«D401 


409F 


4C 


D9 


40 


JMP 


«40D9 


40A2 


AD 


DC 


40 


LDA 


»40DC 


40A5 


8D 


0B 


D4 


STA 


«D40B 


40A8 


A9 


80 




LDA 


»«80 


40AA 


8D 


0C 


D4 


STA 


«D40C 


40AD 


8D 


0D 


D4 


STA 


«D40D 


40B0 


AD 


DD 


40 


LDA 


«40DD 


40B3 


8D 


07 


D4 


STA 


•D407 


40B6 


AD 


DE 


40 


LDA 


«40DE 


40B9 


SD 


08 


D4 


STA 


«D408 


40BC 


4C 


D9 


40 


JMP 


«40D9 


40BF 


AD 


DC 


40 


LDA 


«40DC 


40C2 


8D 


12 


D4 


STA 


»D412 


40C5 


A9 


80 




LDA 


tt»80 


40C7 


8D 


13 


D4 


STA 


»D413 


40CA 


8D 


14 


D4 


STA 


*D414 


40CD 


AD 


DD 


40 


LDA 


»40DD 


40D0 


8D 


0E 


D4 


STA 


«D40E 


40D3 


AD 


DE 


40 


LDA 


»40DE 


40D6 


8D 


0F 


D4 


STA 


*D40F 


40D9 


60 






RTS 





:40DA 00 00 00 00 00 11 21 41 
:40E2 81 00 BE 00 00 00 F8 00 
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28. Envelope 



This routine is similair to Sound (above) but it allows you to set 
the attack, decay, sustain and release as well. 

Attack, decay, sustain and release are all betwen and 15. 

The syntax is SYS 16384, voice, volume, waveform, frequency, 
attack, decay, sustain, release. 



PAL (C)1979 BRAD TEMPLETON 
2 

20: 4000 .OPT P,00 

30: 4000 94000 



ENVELOPE FUNCTION 



SYNTAX 



;SYS16384, VOICE, VOLUME, 
; WAVE,FREQ,A,0,S,R 



120: 

130: 
140: 
150: 
160: 
170: 
180: 
190: 
200: 
210: 
220: 
230: 
240: 



4000 
4003 
4005 
4007 
4009 
400C 
400F 
4011 
4013 
4015 
4018 
401B 
401D 



20 
AS 
D0 
A5 
8D 
20 
A5 
D0 
AS 
8D 
20 
AS 
D0 



24 
15 
6D 
14 
2E 
24 
15 
61 
14 
2F 
24 
15 
55 



41 



41 
41 



41 
41 



JSR GETPARAM 

LDA «15 

BNE IQERR 

LDA «14 

STA VOICE 

JSR GETPARAM 

LDA $15 

BNE IQERR 

LDA «14 

STA VOLUME 

JSR GETPARAM 

LDA $15 

BNE IQERR 
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250: 


401F 


A5 


14 






LDA 


«14 


260: 


4021 


8D 


30 


41 




STA 


WAVE 


270; 


4024 


20 


24 


41 




JSR 


GETPARAM 


280: 


4027 


A5 


14 






LDA 


«14 


290: 


4029 


8D 


31 


41 




STA 


FREQ 


300: 


402C 


A5 


15 






LDA 


«15 


310: 


402E 


8D 


32 


41 




STA 


FREQ+1 


320: 


4031 


20 


24 


41 




JSR 


GETPARAM 


330: 


4034 


A5 


15 






LDA 


«15 


340: 


4036 


D0 


3C 






BNE 


IQERR 


350: 


4038 


A5 


14 






LDA 


«14 


360: 


403A 


C9 


10 






CMP 


«16 


370: 


403C 


B0 


36 






BC8 


IQERR 


380: 


403E 


8D 


33 


41 




STA 


ATTACK 


390: 


4041 


20 


24 


41 




JSR 


GETPARAM 


400: 


4044 


A5 


15 






LDA 


«15 


410: 


4046 


00 


2C 






BNE 


IQERR 


420: 


4048 


A5 


14 






LDA 


»14 


430: 


404A 


C9 


10 






CMP 




440: 


404C 


B0 


26 






6CS 


IQERR 


450: 


404E 


8D 


34 


41 




STA 


DECAY 


470: 


4051 


20 


24 


41 


1 


JSR 


GETPARAM 


480: 


4054 


A5 


15 






LDA 


«15 


490: 


4056 


D0 


IC 






BNE 


IQERR 


500: 


4058 


A5 


14 






LDA 


«14 


510: 


405A 


C9 


10 






CMP 


WAD 


520: 


405C 


B0 


16 






BCS 


IQERR 


530: 


405E 


8D 


35 


41 




STA 


SUSTAIN 


550: 


4061 


20 


24 


41 


J 


JSR 


GETPARAM 


560: 


4064 


A5 


15 






LDA 


• 15 


570: 


4066 


D0 


0C 






BNE 


IQERR 


580: 


4068 


A5 


14 






LDA 


«14 


590: 


406A 


C9 


10 






CMP 




600: 


406C 


B0 


06 






BCS 


IQERR 


610: 


406E 


8D 


36 


41 




1 n 




630: 


4071 


4C 


77 


40 


t 


J MP 


DO 


650: 


4074 


4C 


48 


B2 


i 

IQERR 


JMP 


«B248 



123 



670: 


4077 


AD 


2F 


41 


DO LDA 


VOLUME 


680: 


407A 


C9 


10 




CMP 


ttl6 


690: 


407C 


B0 


F6 




6CS 


IQERR 


700: 


407E 


8D 


18 


D4 


STA 














; CALCULATE 


ADSR 


740: 


4081 


AD 


34 


41 


5 

LDA 


DECAY 


750: 


4084 


4A 






LSR 


A 


760: 


4085 


4A 






LSR 


A 


770: 


4086 


4A 






LSR 


A 


780: 


4087 


4A 






LSR 


A 


790: 


4088 


18 






CLC 




800: 


4089 


6D 


33 


41 


ADC 


ATTACK 


810: 


408C 


8D 


37 


41 


STA 


AD 



f 



830: 


408F 


AD 


36 


41 




LDA 


RELEASE 


840: 


4092 


4A 








LSR 


A 


850: 


4093 


4A 








LSR 


A 


860: 


4094 


4A 








LSR 




870: 


4095 


4A 








LSR 


A 


880: 


4096 


18 








CLC 




890: 


4097 


6D 


35 


41 




ADC 


SUSTAIN 


900: 


409A 


8D 


38 


41 




STA 


SR 


920: 


409D 


A2 


00 




; 


LDX 


«0 


930: 


409F 


AD 


30 


41 




LDA 


WAVE 


940: 


40A2 


DD 


39 


41 


LOOP 


CMP 


WAVETABL 


950: 


40A5 


F0 


08 






BEG 


MORE 


960: 


40A7 


E8 








INX 




960: 


40A8 


E0 


04 






CPX 


#4 


970: 


40AA 


D0 


F6 






BNE 


LOOP 


980: 


40AC 


4C 


48 


B2 


IQERRl 
■ 


JMP 


«B248 ; I 


1000: 


40AF 


AD 


2E 


41 


> 

MORE 


LDA 


VOICE 


1010: 


40B2 


F0 


FS 






BEQ 


IQERRl 


1020: 


40B4 


C9 


04 






CMP 


#4 


1030: 


40B6 


B0 


F4 




m 


6CS 


IQERRl 


1050: 


40B8 


C9 


01 




r 


CMP 


#1 



124 



1060: 


40BA 


F0 


07 






BEQ 


VOICEl 


1070: 


40BC 


C9 


02 






CMP 




1080: 


40BE 


F0 


24 






BEQ 


V0ICE2 


1090: 


40C0 


4C 


05 


41 


1 


JMP 


VOICES 


1 120: 


40C3 


AD 


30 


41 


m 
> 

V/OICEl 


LDA 


WAVE 


1 130: 


40C6 


8D 


04 


D4 




STA 


54276 


1 140: 


40C9 


AO 


37 


41 




LDA 


AD 


1 150: 


40CC 


8D 


05 


D4 




STA 


54277 


1 160: 


40CF 


AD 


38 


41 




LDA 


SR 


117 fa: 


40D2 


8D 


06 


D4 




STA 


54278 


1 180: 


40D5 


AD 


31 


41 




LDA 


FREQ 


1 190: 


40D8 


8D 


00 


D4 




STA 


54272 


1200: 


40DB 


AD 


32 


41 




LDA 


FREQ+l 


1210: 


40OE 


8D 


01 


D4 




STA 


54273 


1220: 


40E1 


4C 


23 


41 


a 


JMP 


FINISH 


1240: 


40E4 


AD 


30 


41 


f 

V0ICE2 


LDA 


WAVE 


1250: 


40E7 


8D 


0B 


D4 




STA 


54283 


1260: 


40EA 


AD 


37 


41 




LDA 


AD 


1270: 


40ED 


8D 


0C 


D4 




STA 


54284 


1280: 


40F0 


AD 


38 


41 




LDA 


SR 


1290: 


40F3 


8D 


0D 


D4 




STA 


54285 


1300: 


40F6 


AD 


31 


41 




LDA 


FREQ 


1310: 


40F9 


8D 


07 


D4 




STA 


54279 


1320: 


40FC 


AD 


32 


41 




LDA 


FREQ+1 


1330: 


40FF 


8D 


08 


D4 




STA 


54280 


1340: 


4102 


4C 


23 


41 




JMP 


FINISH 


1360: 


4105 


AD 


30 


41 


> 

VOICES 


LDA 


WAVE 


1370: 


4108 


8D 


12 


D4 




STA 


54290 


1380: 


410B 


AD 


37 


41 




LDA 


AD 


1390: 


410E 


8D 


13 


D4 




STA 


54291 


1400: 


4111 


AD 


38 


41 




LDA 


SR 


1410: 


4114 


8D 


14 


D4 




STA 


54292 


1420: 


4117 


AD 


31 


41 




LDA 


FREQ 


1430: 


411A 


8D 


0E 


D4 




STA 


54286 


1440: 


411D 


AD 


32 


41 




LDA 


FREQ+1 


1450: 


4120 


8D 


0F 


D4 




STA 


54287 



125 



1480: 


4123 


60 






FINISH 


RTS 




1490: 


4124 


20 


FD 


AE 


GETPARAM 


JSR 


$AEFD 


1500: 


4127 


20 


8A 


AD 




JSR 


$AD8A 


1510: 


412A 


20 


F7 


B7 




JSR 


*B7F7 


1520: 


4120 


60 








RTS 




1530: 


412E 


00 






VOICE 


. BYT 





1540. 


412F 


00 






VOLUME 


.BYT 





1550. 


4130 


00 






WAVE 


.BYT 





1560 


4131 


00 


00 




FREQ 


. WORD0 


1570 


4133 


00 






ATTACK 


.BYT 





1580 


4134 


00 






DECAY 


.BYT 





1590 


4135 


00 






SUSTAIN 


.BYT 





1600 


: 4136 


00 






RELEASE 


.BYT 





1610 


; 4137 


00 






AD 


.BYT 





1620 


: 4138 


00 






SR 


.BYT 





1630 


: 4139 


11 


21 


41 


WAVETABLE.BYT 


17,33,65, 


3 4000-41 3D 















READY. 



B«- 

PC SR AC XR YR SP 
. I97FE 72 00 00 01 F6 



4000 


20 


24 


41 


JSR 


«4124 


4003 


AS 


15 




LDA 


*15 


4005 


D0 


6D 




BNE 


«4074 


4007 


AS 


14 




LDA 


«14 


4009 


8D 


2E 


41 


STA 


«412E 


400C 


20 


24 


41 


JSR 


«4124 


400F 


A5 


15 




LDA 


»15 


4011 


D0 


61 




BNE 


S4074 


4013 


AS 


14 




LDA 


»14 


4015 


8D 


2F 


41 


STA 


*412F 


4018 


20 


24 


41 


JSR 


»4124 



126 



401B 


AS 


IS 




LDA 


«15 


401D 


D0 


55 




BNE 


•4074 


401F 


AS 


14 




LDA 


*14 


4021 


8D 


30 


41 


STA 


44130 


4024 


20 


24 


41 


JSR 


44124 


4027 


AS 


14 




LDA 


«14 


4029 


8D 


31 


41 


STA 


414131 


402C 


AS 


IS 




LDA 


*15 


402E 


8D 


32 


41 


STA 


«4132 


4031 


20 


24 


41 


JSR 


44124 


4034 


AS 


IS 




LDA 


«15 


4036 


D0 


3C 




BNE 


*4074 


4038 


AS 


14 




LDA 


• 14 


403A 


C9 


10 




CMP 


#410 


403C 


B0 


36 




BCS 


•4074 


403E 


8D 


33 


41 


STA 


•4133 


4041 


20 


24 


41 


JSR 


•4124 


4044 


A5 


IS 




LDA 


• 15 


4046 


D0 


2C 




BNE 


•4074 


4048 


AS 


14 




LDA 


• 14 


404A 


C9 


10 




CMP 


#•10 


404C 


B0 


26 




BCS 


•4074 


404E 


6D 


34 


41 


STA 


•4134 


4091 


20 


24 


41 


JSR 


•4124 


4054 


AS 


IS 




LDA 


• 15 


4056 


D0 


IC 




BNE 


•4074 


4058 


AS 


14 




LDA 


• 14 


405A 


C9 


10 




CMP 


#•10 


405C 


B0 


16 




BCS 


•4074 


405E 


8D 


35 


41 


STA 


•4135 


4061 


20 


24 


41 


JSR 


•4124 


4064 


AS 


15 




LDA 


• IS 


4066 


D0 


0C 




BNE 


•4074 


4068 


AS 


14 




LDA 


• 14 


406A 


C9 


10 




CMP 


#•10 


406C 


B0 


06 




BCS 


•4074 


406E 


8D 


36 


41 


STA 


•4136 


4071 


4C 


77 


40 


JMP 


•4077 


4074 


4C 


48 


B2 


JMP 


•B248 


4077 


AD 


2F 


41 


LDA 


•412F 


407A 


C9 


10 




CMP 


#•10 







I— i 

ro 




BCS 


*4074 




on 
oil 


f 

Id 


D4 


STA 


4D418 


Acta 1 


ATI 


34 


41 


LDA 


*4134 




>| A 






LSR 




4£F85 


4A 






LSR 






v4 A 

4A 






LSR 






y* A 






LSR 






f Q 






CLC 






oi; 




4 1 


ADC 


$4133 


400C 


oD 


37 


41 


STA 


•4137 




A n 


36 


41 


LDA 


*4136 




>l A 






LSR 






/I A 






LSR 






/I A 






LSR 




AOtO^ 


^ A 

4A 






LSR 






1 Q 






CLC 




^010*7 


oi# 


t^S 


A 1 
Hi 


A 

ADC 


94135 










A 

STA 


94 138 


AOtOT\ 


A 


dot 




LDX 


#900 




A n 


30 


41 


LDA 


94130 


^ « A 


Ou 


3t 


41 


CMP 


94139, 




r» 


00 




BEQ 


940AF 


^ A 

^lo9^/ 


Co 






INK 






cot 


04 




CrX 


♦♦904 


Jl A A A 


D0 


ro 




BNE 


940A2 




4C 


48 


BZ 


J MP 


9B248 


^ MAC? 


AH 




41 


1 n A 

LDA 


9412E 




ax 


ro 




BEQ 


940AC 




Ct 


04 




CMP 


♦♦904 






r 4 




BCS 


940AC 




Ct 


01 




CMP 


#901 




e A 
rUfl 


07 




BEQ 


940C3 




r*o 
U V 


0£ 




CMP 


♦♦902 




cot 
r Jo 


'3 A 






940E4 






AK 

0O 


41 


*T MB 

J MP 


94105 




An 
Ail 


^ A 

30 


41 


1 n A 

LDA 


94130 






AA 
0'» 


D4 


BY* A 

STA 


9D404 




ATI 

AU 


3/ 


41 


LDA 


94137 


40CC 


8D 


0S 


D4 


STA 


9D405 


40CF 


AO 


38 


41 


LDA 


94138 


40D2 


8D 


06 


D4 


STA 


9D406 



40D5 


AD 


31 


41 


LDA 


44131 


40D8 


8D 


00 


D4 


STA 


«D400 


40DB 


AD 


32 


41 


LDA 


94132 


40DE 


8D 


01 


D4 


STA 


«D401 


40E1 


4C 


23 


41 


J MP 


«4123 


40E4 


AD 


30 


41 


LDA 


«4130 


40E7 


8D 


0B 


D4 


STA 


«D40B 


40EA 


AD 


37 


41 


LDA 


«4137 


40ED 


80 


0C 


D4 


STA 


«D40C 


40F0 


AD 


38 


41 


LDA 


«4138 


40F3 


8D 


0D 


D4 


STA 


«D40D 


40F6 


AD 


31 


41 


LDA 


«4131 


40F9 


8D 


07 


D4 


STA 


«D407 


40FC 


AD 


32 


41 


LDA 


«4132 


40FF 


8D 


08 


D4 


STA 


«D408 


4102 


4C 


23 


41 


J MP 


«4123 


4105 


AD 


30 


41 


LDA 


•4130 


4108 


8D 


12 


D4 


STA 


«D412 


410B 


AD 


37 


41 


LDA 


•4137 


410E 


8D 


13 


D4 


STA 


•D413 


4111 


AD 


38 


41 


LDA 


•4138 


4114 


8D 


14 


D4 


STA 


•D414 


4117 


AD 


31 


41 


LDA 


•4131 


411A 


8D 


0E 


D4 


STA 


•D40E 


411D 


AD 


32 


41 


LDA 


•4132 


4120 


8D 


0F 


D4 


STA 


•D40F 


4123 


60 






RTS 




4124 


20 


FD 


AE 


JSR 


•AEFD 


4127 


20 


8A 


AD 


JSR 


•AD8A 


412A 


20 


F7 


B7 


JSR 


•B7F7 


412D 


60 






RTS 





. :412E 00 00 00 00 00 00 00 00 
. :4136 00 00 00 11 21 41 81 04 



29. DIR 

This routine allows you to read the disk directory (of either or 
both drives on a dual drive (not two 1541s)). It does not disturb 
the program in memory. 

The syntax is SYS 16384,drive 

where drive is or 1, or 2 if both drives are to be read. 



PAL <C)1979 BRAD TEMPLETON 



2 

20: 


3FFD 










. OPT 


P, 00 




3FFD 










*= 


16381 


40: 


3FFD 








FNLENGTH 




«B7 


90: 


3FFD 








SECADR 


SB 


«B9 


60: 


3FFD 








CEV/NUM 




«BA 


70: 


3FFD 








FNADD 


S 


«BB 


80: 


3FFD 








FNLEN 


SB 


«FD 


90: 


3FFD 








TEMP 




«FB 


100: 


3FFD 








ST 


as 


«90 


110: 


3FFD 








SENDFNAM 




«F3D5 


120: 


3FFD 








CLOSEFIL 




«F642 


130: 


3FFD 








SENDSEC 




»FF96 


140: 


3FFD 








lECTALK 


SB 


»FFB4 


150: 


3FFD 








lECINP 




«FFA5 


160: 


3FFD 








LINENO 




«BDCD 


170: 


3FFD 








PRINT 




»FFD2 


180: 


3FFD 








CR 




13 


200: 


3FFD 


4C 


48 


B2 


t 

IQERR 


JMP 


«B248 












;DIR SYNTAX 


SYS 1( 


220: 


4000 


20 


FD 


AE 




JSR 


«AEFD 


230: 


4003 


20 


9E 


B7 




JSR 


«B79E 


240: 


4006 


8A 








TXA 





130 



250: 


4007 


C9 


03 






CMP 


nz 


260: 


4009 


B0 


F2 






BCS 


IQERR 


270: 


400B 


C9 


00 






CMP 


#0 


270: 


400D 


F0 


0F 






BEQ 


ZERO 


280: 


400F 


C9 


01 






CMP 


#1 


290: 


4011 


D0 


16 






BNE 


BOTH 


300: 


4013 


A9 


31 






LDA 


#"1" 


310: 


4015 


85 


FC 






STA 


«FC 




dOf 1 ~7 

HJe X / 


AO 








LDA 


tt2 


330: 


4019 


85 


FD 






STA 


FNLEN 


340: 


401B 


4C 


2D 


40 


• 


J MP 


DIR 


360: 


401E 








ZERO 


= 


* 


370: 


401E 


A9 


30 






LDA 


«"0» 


380: 


4020 


85 


FC 






STA 


«FC 


390: 


4022 


A9 


02 






LDA 


#2 


400: 


4024 


85 


FD 






STA 


FNLEN 










HJO 




J MP 


DIR 


420: 


4029 


A9 


01 




BOTH 


LDA 


#1 


430: 


402B 


85 


FD 






STA 


FNLEN 


450: 


402D 


A9 


00 




> 

DIR 


LDA 


#0 


460: 


402F 


85 


90 






STA 


ST 


470: 


4031 


A9 


24 






LDA 


«»"« 


480: 


4033 


85 


FB 






STA 


TEMP 


490: 


4035 


A9 


FB 






LDA 


#<TEMP 


500: 


4037 


85 


BB 






STA 


FNADD 


510: 


4039 


A9 


00 






LDA 


♦♦>TEMP 


520: 


403B 


85 


BC 






STA 


FNADD+1 


530: 


403D 


A5 


FD 






LDA 


FNLEN 


540: 


403F 


85 


B7 






STA 


FNLENGTH 


550: 


4041 


A9 


08 






LDA 




560: 


4043 


85 


BA 






STA 


DEVNUM 


570: 


4045 


A9 


60 






LDA 


tt«60 


580: 


4047 


85 


B9 






STA 


SECADR 


590: 


4049 


20 


D5 


F3 




JSR 


SENDFNAM 


600: 


404C 


A5 


BA 






LDA 


DEVNUM 


610: 


404E 


20 


B4 


FF 




JSR 


lECTALK 


620: 


4051 


A5 


B9 






LDA 


SECADR 


630: 


4053 


20 


96 


FF 




JSR 


SENDSEC 


640: 


4056 


A4 


90 






LDY 


ST 



6S0: 


40S8 


D0 


3D 




BNE 


DLIST4 


660: 


405A 


A0 


06 




LDY 


#6 


670: 


405C 


84 


FB 


DLISTl 


STY 


TEMP 


680: 


405E 


20 


A5 


FF 


JSR 


lECINP 


690: 


4061 


A6 


FC 




LDX 


TEMP+1 


700: 


4063 


85 


FC 




STA 


TEMP+1 


710: 


4065 


A4 


90 




LDY 


ST 


720: 


4067 


D0 


2E 




BNE 


DLIST4 


730: 


4069 


A4 


FB 




LDY 


TEMP 


740: 


406B 


88 






DEY 




750: 


406C 


00 


EE 




BNE 


DLISTl 


760: 


406E 


A4 


FC 




LDY 


TEMP+1 


770: 


4070 


20 


CD 


BD 


JSR 


LINENO 


780: 


4073 


A9 


20 




LDA 


#«20 


790: 


4075 


20 


D2 


FF 


JSR 


PRINT 


800: 


4078 


20 


A5 


FF DLIST3 


JSR 


lECINP 


810: 


407B 


A6 


90 




LDX 


ST 


820: 


407D 


D0 


18 




BNE 


DLIST4 


830: 


407F 


AA 






TAX 




840: 


4080 


F0 


06 




BEQ 


DLIST2 


890: 


4082 


20 


D2 


FF 


JSR 


PRINT 


860: 


4085 


4C 


78 


40 


JMP 


DLIST3 


870: 


4088 


A9 


0D 


DLIST2 


LDA 


«CR 


880: 


408A 


20 


D2 


FF 


JSR 


PRINT 


890: 


408D 


A5 


C5 




LDA 


«C5 


900: 


408F 


C9 


3F 




CMP 


N63 


900: 


4091 


F0 


04 




BEQ 


DLIST4 


910: 


4093 


A0 


04 




LDY 


M4 


920: 


4095 


D0 


C5 




BNE 


DLISTl 


930: 


4097 


20 


42 


F6 DLIST4 


JSR 


CLOSEFIL 


940: 


409A 


60 






RTS 





3 3FFD-409B 
READY. 
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PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



4000 


20 


FD 


AE 


JSR 


«AEFD 


4003 


20 


9E 


B7 


JSR 


«B79E 


4006 


8A 






TXA 




4007 


C9 


03 




CMP 


tt«03 


4009 


B0 


F2 




BCS 


•3FFD 


400B 


C9 


00 




CMP 


«»00 


400D 


F0 


0F 




BE8 


«401E 


400F 


C9 


01 




CMP 


tt«01 


4011 


D0 


16 




BNE 


«4029 


4013 


A9 


31 




LDA 


tt»31 


4015 


85 


FC 




STA 


•FC 


4017 


A9 


02 




LDA 


M»02 


4019 


85 


FD 




STA 


«FD 


401B 


4C 


20 


40 


J MP 


«402D 


401E 


A9 


30 




LDA 


#«30 


4020 


85 


FC 




STA 


•FC 


4022 


A9 


02 




LDA 


tt«02 


4024 


85 


FD 




STA 


•FD 


4026 


4C 


2D 


40 


JMP 


•4020 


4029 


A9 


01 




LDA 


#•01 


402B 


85 


FD 




STA 


•FD 


402D 


A9 


00 




LDA 


#•00 


402F 


85 


90 




STA 


•90 


4031 


A9 


24 




LDA 


#•24 


4033 


85 


FB 




STA 


•FB 


4035 


A9 


FB 




LDA 


^•FB 


4037 


85 


BB 




STA 


•BB 


4039 


A9 


00 




LDA 


#•00 


403B 


85 


BC 




STA 


•BC 


403D 


AS 


FD 




LDA 


•FD 


403F 


85 


B7 




STA 


•B7 


4041 


A9 


08 




LDA 


#•08 


4043 


85 


BA 




STA 


•BA 


4045 


A9 


60 




LDA 


#•60 


4047 


85 


B9 




STA 


•B9 


4049 


20 


05 


F3 


JSR 


•F3D5 


404C 


A5 


BA 




LDA 


•BA 



404E 


20 


B4 


FF 


JSR 


*FFB4 


4051 


A5 


B9 




LDA 


*B9 


4053 


20 


96 


FF 


JSR 


«FF96 


4056 


A4 


90 




LDY 


«90 


4058 


D0 


3D 




BNE 


«4097 


405A 


A0 


06 




LDY 


tt«06 


405C 


84 


FB 




STY 


»FB 


405E 


20 


A5 


FF 


JSR 


*FFA5 


4061 


A6 


FC 




LOX 


•FC 


4063 


85 


FC 




STA 


«FC 


4065 


A4 


90 




LDY 


«90 


4067 


00 


2E 




BNE 


*4097 


4069 


A4 


FB 




LDY 


«FB 


406B 


88 






DEY 




406C 


D0 


EE 




BNE 


»405C 


406E 


A4 


FC 




LDY 


•FC 


4070 


20 


CD 


BD 


JSR 


•BDCD 


4073 


A9 


20 




LDA 


#•20 


4075 


20 


D2 


FF 


JSR 


•FFD2 


4078 


20 


A5 


FF 


JSR 


•FFA5 


407B 


A6 


90 




LDX 


•90 


407D 


D0 


18 




BNE 


•4097 


407F 


AA 






TAX 




4080 


F0 


06 




BEG) 


•4088 


4082 


20 


D2 


FF 


JSR 


•FFD2 


4085 


4C 


78 


40 


JMP 


•4078 


4088 


A9 


0D 




LDA 


tt«0D 


408A 


20 


D2 


FF 


JSR 


•FFD2 


408D 


A5 


C5 




LDA 


•C5 


408F 


C9 


3F 




CMP 


^•3F 


4091 


F0 


04 




BEQ 


•4097 


4093 


A0 


04 




LDY 


««04 


4095 


D0 


C5 




BNE 


•405C 


4097 


20 


42 


F6 


JSR 


•F642 


409A 


60 






RTS 





30. MSAVE 



The following routine allows you save any specified area of 
memory. You specify the filename, the device, the secondary 
address, the start address and the finishing address + 1 . 

The syntax is as follows: 

SYS 16384,"name",device,1,start,finish + 1 



PAL (0 1979 BRAD TEMPLETON 
2 



20: 


4000 








. OPT 


P,00 


30: 


4000 








*= 


«4000 


50: 


4000 


20 


FD 


J 

AE 


JSR 


«AEFD 


60: 


4003 


20 


D4 


El 


JSR 


«E1D4 


70: 


4006 


20 


FD 


AE 


JSR 


«AEFD 


80: 


4009 


20 


8A 


AD 


JSR 


«AD8A 


90: 


400C 


20 


F7 


B7 


JSR 


«B7F7 


100: 


400F 


A5 


14 




LDA 


«14 


110: 


4011 


48 






PHA 




120: 


4012 


A5 


15 




LDA 


«15 


130: 


4014 


48 






PHA 




140: 


4015 


20 


FD 


AE 


JSR 


«AEFD 


150: 


4018 


20 


8A 


AD 


JSR 


«AD8A 


160: 


401B 


20 


F7 


B7 


JSR 


«B7F7 


170: 


401E 


A6 


14 




LDX 


«14 


180: 


4020 


A4 


15 




LDY 


«15 


190: 


4022 


68 






PLA 




200: 


4023 


85 


FC 




STA 


*FC 


210: 


4025 


68 






PLA 




220: 


4026 


85 


FB 




STA 


«FB 
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230: 4028 A9 FB 
240: 402A 4C 5F El 
34000-402D 



LDA tt»FB 
JMP »E15F 



READY. 



PC SR AC XR YR SP 
. I97FE 72 00 00 01 F6 



4000 


20 


FD 


AE 


JSR 


4iAEFD 








Kb a 


si O l\ 




4006 


20 


FD 


AE 


JSR 


»AEFD 


4009 


20 


8A 


AO 


JSR 


»AD8A 


400C 


20 


F7 


B7 


JSR 


»B7F7 


400F 


AS 


14 




LDA 


«14 


4011 


48 






PHA 




4012 


AS 


15 




LDA 


»15 


4014 


48 






PHA 




4019 


20 


FD 


AE 


JSR 


»AEFD 


4018 


20 


8A 


AD 


JSR 


«AD8A 


401B 


20 


F7 


B7 


JSR 


«B7F7 


401E 


A6 


14 




LDX 


»14 


4020 


A4 


15 




LDY 


«15 


4022 


68 






PLA 




4023 


85 


FC 




STA 


»FC 


4025 


68 






PLA 




4026 


85 


FB 




STA 


»FB 


4028 


A9 


FB 




LDA 


N«FB 


402A 


4C 


5F 


El 


JMP 


»E15F 
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31. MLOAD/MVERIFY 



The following routine allows you to load or verify to or from a 
specified area of memory. The load enables you to load into any 
area of memory, whether it was saved from that area or not. 
The verify allows you to verify a specific area of memory. 

The syntax for MLOAD is as follows: 

SYS 16394,"name",device,1, start address 
The syntax for MVERIFY is as follows: 

SYS 16384,"name",device,1,start 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


4000 










.OPT 


P,00 


30: 


4000 










#= 


«4000 


40: 


4000 


20 


FD 


AE 


MVERIFY 


JSR 


«AEFD 


50: 


4003 


A9 


01 






LDA 


tt'l 


60: 


4005 


85 


0A 






STA 


«A 


70: 


4007 


4C 


11 


40 




JMP 


LO 


80: 


400A 


20 


FD 


AE 


MLOAD 


JSR 


«AEFD 


90: 


400D 


A9 


00 






LDA 


4*0 


100: 


400F 


85 


0A 






STA 


»A 


110: 


4011 


20 


D4 


El 


LO 


JSR 


«E1D4 


120: 


4014 


20 


FD 


AE 




JSR 


«AEFD 


130: 


4017 


20 


8A 


AD 




JSR 


«AD8A 


140: 


401A 


20 


F7 


B7 




JSR 


*B7F7 


150: 


401D 


A5 


0A 






LDA 


«A 


160: 


401F 


A6 


14 






LDX 


«14 


170: 


4021 


A4 


15 






LDY 


«15 


180: 


4023 


4C 


75 


El 




JMP 


«E175 



34000-4026 
READY. 
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B-X- 

PC SR AC XR YR SP 
. ; 97FE 72 00 00 01 F6 



4000 


20 


FD 


AE 


JSR 


*AEFD 


4003 


A9 


01 




LDA 


n*0i 


4005 


85 


0A 




STA 


«0A 


4007 


4C 


11 


40 


JMP 


*401 1 


400A 


20 


FD 


AE 


JSR 


*AEFD 


400D 


A9 


00 




LDA 


tt«00 


400F 


85 


0A 




STA 


«0A 


401 1 


20 


D4 


El 


JSR 


$E1D4 


4014 


20 


FD 


AE 


JSR 


«AEFD 


4017 


20 


8A 


AD 


JSR 


»AD8A 


401A 


20 


F7 


B7 


JSR 


•B7F7 


401D 


A5 


0A 




LDA 


*0A 


401F 


A6 


14 




LDK 


«14 


4021 


A4 


15 




LDY 


«15 


4023 


4C 


75 


El 


JMP 


«E175 



32. Disk 

This routine allows you to send a command to the command 
channel of the disk drive, e.g. initialise or format. 

It replaces the following in Basic: 

OPEN15,8,15,"COMMAND" 
The syntax is as follows: 

SYS 16384,"command" 



PAL 
2 

20: 
30: 



<C)1979 BRAD TEMPLETON 



4000 
4000 



.OPT 
*= 

; SYNTAX SYS 
; "COMMAND" 



601 


4000 








CLOSE 




70: 


4000 








OPEN 




80: 


4000 








GETNAME 


S 


90: 


4000 








NEXTQ 




100: 


4000 








SETFNA 




110: 


4000 








SETFPA 




120: 


4000 








GIVERR 

* 




140: 


4000 


20 


FD 


AE 




JSR 


150: 


4003 


A9 


0F 






LDA 


160: 


4005 


20 


C3 


FF 




JSR 


170: 


4008 


20 


16 


40 




JSR 


180: 


400B 


20 


C0 


FF 




JSR 


190: 


400E 


B0 


lA 






BCS 


200: 


4010 


A9 


0F 






LDA 


210: 


4012 


20 


C3 


FF 




JSR 



P,00 
«4000 
16384, 

*FFC3 
*FFC0 
•E257 
»E206 
«FFBD 
«FFBA 
SE0F9 

«AEFD 
ttl5 

CLOSE 

GETFPAR 

OPEN 

ERROR 

#15 

CLOSE 
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220: 


4015 


60 








RTS 


240: 


4016 


A9 


00 




1 

QETFPAR 


LDA 


250: 


4018 


20 


BD 


FF 




JSR 


260: 


4016 


A9 


0F 






LDA 


270: 


4010 


A8 








TAY 


280: 


401E 


A2 


08 






LDX 


290: 


4020 


20 


BA 


FF 




JSR 


300: 


4023 


20 


06 


E2 




JSR 


310: 


4026 


20 


57 


E2 




JSR 


320: 


4029 


60 








RTS 


330: 


402A 


4C 


F9 


E0 


ERROR 


JMP 


] 4000- 


402D 













tt0 

SETFNA 
ttl5 

#8 

SETFPA 

NEXTQ 

GETNAME 

GIVERR 



READY. 



PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



4000 


20 


FD 


AE 


JSR 


»AEFD 


4003 


A9 


0F 




LDA 


tt«0F 


4005 


20 


C3 


FF 


JSR 


•FFC3 


4008 


20 


16 


40 


JSR 


»4016 


400B 


20 


C0 


FF 


JSR 


»FFC0 


400E 


B0 


lA 




BCS 


»402A 


4010 


A9 


0F 




LDA 


#«0F 


4012 


20 


C3 


FF 


JSR 


•FFC3 


4015 


60 






RTS 




4016 


A9 


00 




LDA 


«»00 


4018 


20 


BD 


FF 


JSR 


«FFBD 


401B 


A9 


0F 




LDA 


tt»0F 


401D 


A8 






TAY 




401E 


A2 


08 




LDX 


tt«08 


4020 


20 


BA 


FF 


JSR 


•FFBA 


4023 


20 


06 


E2 


JSR 


«E206 


4026 


20 


57 


E2 


JSR 


«E257 


4029 


60 






RTS 




402A 


4C 


F9 


E0 


JMP 


»E0F9 



140 



33. DERROR 



This routine allows you to read the disk error channel in direct 
mode or during a program. 

It replaces the following BASIC program: 

10 OPEN15,8,15 
20 INPUT#15,A$,B$,C$,D$,E$ 
30 PRINT A$;B$;C$;D$;E$ 
40 CL0SE15 

The syntax is SYS 16384 



PAL <C)1979 BRAD TEMPLETQN 
2 



20: 


4000 








.OPT 


P,00 


30: 


4000 








*= 


«4000 


40: 


4000 






ST 




«90 


90: 


4000 










«BA 


60: 


4000 






SECADR 


SB 


«B9 


70: 


4000 






lECTALK 




«FFB4 


80: 


4000 






SENDSEC 




*FF96 


90: 


4000 






lECINP 




«FFA5 


100: 


4000 






PRINT 




*FFD2 


110: 


4000 






UNTALK 


gg. 


*FFAB 










I 

i DERROR 


COMMAND 


150: 


4000 


A9 


00 


J 


LDA 


#0 


160: 


4002 


85 


90 




STA 


ST 


170: 


4004 


A9 


08 




LDA 


#8 


180: 


4006 


85 


BA 




STA 


DEVNUM 


190: 


4008 


20 


B4 FF 




JSR 


IECTALK 


200: 


400B 


A9 


6F 




LDA 


#«6F 
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210: 


400D 


85 


B9 






STA 


SECAOR 


220: 


400F 


20 


96 


FF 




JSR 


SENDSEC 


230: 


4012 


A4 


90 




LOOP 


LDY 


ST 


240: 


4014 


D0 


0A 






BNE 


DERR4 


250: 


4016 


20 


AS 


FF 




JSR 


lECINP 


260: 


4019 


20 


D2 


FF 




JSR 


PRINT 


270: 


401C 


C9 


0D 






CMP 


»13 


280: 


401E 


D0 


F2 






BNE 


LOOP 


290: 


4020 


20 


AB 


FF 


DERR4 


JSR 


UNTALK 


300: 


4023 


60 








RTS 





3 4000-4024 
READY. 



B* 

PC SR AC XR YR SP 
. ;97FE 72 00 00 01 F6 



4000 


A9 


00 




LDA 


#«00 


4002 


85 


90 




STA 


«90 


4004 


A9 


08 




LOA 


#«08 


4006 


85 


BA 




STA 


«BA 


4008 


20 


B4 


FF 


JSR 


«FFB4 


400B 


A9 


6F 




LOA 


«*6F 


400D 


85 


B9 




STA 


«B9 


400F 


20 


96 


FF 


JSR 


*FF96 


4012 


A4 


90 




LDY 


*90 


4014 


D0 


0A 




BNE 


«4020 


4016 


20 


A5 


FF 


JSR 


*FFA5 


4019 


20 


02 


FF 


JSR 


«FF02 


401C 


C9 


00 




CMP 


M«0O 


401E 


D0 


F2 




BNE 


«4012 


4020 


20 


AB 


FF 


JSR 


*FFAB 


4023 


60 






RTS 
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34. Scroll message 

This routine allows a message to be scrolled across the screen 
independently of anything else. This could be useful during the 
introduction to a ganne, for example. 

The text to be scrolled across can be any length from 1 charac- 
ter onwards. The text must end with a $FF (255) byte to tell 
the routine to start from the beginning again. 

Three parameters are required by the routine: the start location 
of the text in memory, the rate of scrolling and the colour of 
the text. If for example you wanted one new letter to appear 
on the screen once every sixth of a second then the rate would 
be 10 (as 10/60 is one sixth). 

The syntax is as follows: 

SYS 16384,start of text,rate,colour 



PAL (C)1979 BRAD TEMPLETON 
2 



20: 
30: 


4000 
4000 








. OPT 

*= 


P, 00 
«4000 


50: 


4000 


20 


FD 


5 

AE 


JSR 


«AEFD 


60: 


4003 


20 


8A 


AD 


JSR 


$AD8A 


70: 


4006 


20 


F7 


B7 


JSR 


SB7F7 


90: 
100: 


4009 
400B 


A5 
85 


14 
FB 


5 


LDA 
STA 


$14 
*FB 
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100: 
B 

110: 
120: 
120: 
c 



400D 80 96 40 

4010 A5 15 
4012 85 FC 
4014 8D 97 40 



STA TEMPF 

LDA *15 

STA «FC 

STA TEMPF 



140: 
150: 

160: 
170: 
180: 

ER 

190: 
200: 
210: 

R 



4017 20 FD AE 

401A 20 9E B7 

401D 8A 

401E 8D 95 40 

4021 8D 94 40 

4024 20 FD AE 

4027 20 9E B7 

402A 8E 98 40 



JSR 

JSR 

TXA 
STA 
STA 

JSR 

JSR 

STX 



«AEFD 
*B79E 

TEMP 
COUNT 

*AEFD 

SB79E 

COLOU 



230: 
240: 
N 

250: 
260: 
N 

270: 
280: 
290: 



402D 78 
402E A9 3A 

4030 8D 14 03 
4033 A9 40 

4035 8D 15 03 

4038 58 

4039 60 



SEI 

LDA «<MAI 

STA 788 
LDA #>MAI 

STA 789 

CLI 

RTS 



320: 
ER 
330: 
H 



403A CE 94 40 MAIN 
403D D0 38 



DEC COUNT 
BNE FINIS 



350: 
360: 
ER 



403F AD 95 40 
4042 8D 94 40 



LDA TEMP 
STA COUNT 
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370: 


4045 


A2 


00 






LDX 




380: 


4047 


BD 


99 


07 


LOOP 


1 DA 
I— Ay 




X 

390: 


404A 


9D 


98 


07 




STA 


1944, 


400: 


404D 


BD 


99 


DB 




LDA 


1945 + 


54272, 


X 














410: 


4050 


9D 


98 


DB 




STA 


1944 + 


54272, 


X 














420: 


4053 


E8 








I My 




430: 


4054 


E0 


27 






CPX 


#39 


440: 


4J056 


D0 


EF 




• 


BNE 


LOOP 


460: 


4058 


A0 


00 




f 


LDY 


#0 


470: 

. Y 


405A 


Bl 


FB 






LDA 


<*FB) 


9 ' 

480: 


405C 


C9 


3F 






CMP 


#63 


481 : 


405E 


B0 


03 






BCS 


^1 IRTR 

wUD 1 IN 


482: 


4060 


4C 


66 


40 




JMP 


PUTON 


483: 


4063 


38 






SUBTR 


SEC 




484: 


4064 


E9 


40 






SBC 


#64 


500: 


4066 


8D 


BF 


07 


PUTON 


STA 


1983 


510: 


4069 


20 


7A 


40 




JSR 


INCRE 


WENT 
















520: 


406C 


A5 


FC 






LDA 


*FC 


530: 


406E 


18 








\-r I— Vf 




540: 


406F 


69 


D4 






ADC 


#212 


550: 
p 


4071 


AD 


98 


40 




LDA 


COLOU 


560: 


4074 


8D 


BF 


DB 




STA 


1983 + 


54272 
















580: 


4077 


4C 


31 


EA 


i 

FINISH 


JMP 


«EA31 


590: 


407A 


E6 


FB 




INCREMENTING 


«FB 


600: 


407C 


D0 


02 






BNE 


CHECK 


610: 


407E 


E6 


FC 






INC 


*FC 



5 
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630: 


4080 


A0 


00 




CHECK 


LDY 


#0 


640: 


4082 


Bl 


FB 






LDA 


<SiFB) 


Y 

650: 


4084 


C9 


FF 






CMP 


#«FF 


660: 


4086 


F0 


01 






BEQ 


RESET 


670: 


4088 


60 








RTS 




680: 

u 


4089 


AD 


96 


40 


RESET 


LDA 


TEMPF 


690: 


408C 


85 


FB 






STA 


*FB 


700: 


408E 


AD 


97 


40 




LDA 


TEMPF 


C 

710: 


4091 


85 


FC 






STA 


«FC 


720: 


4093 


60 








RTS 




730: 


4094 


00 






COUNTER 


. BYT 





740: 


4095 


00 






TEMP 


. BYT 





750: 


4096 


00 






TEMPFB 


. BYT 





760: 


4097 


00 






TEMPFC 


. BYT 





770: 


4098 


00 






COLOUR 


. BYT 





790: 


4099 


48 


45 


4C 




. ASC 


"HELL 


I 


AM A CBM 64 MICRO-" 






790: 


40B3 


43 


4F 


4D 




. ASC 


"COMP 


UTER 


AND I AM 64 " 










800: 


40C8 


FF 








. BYT 


*FF 



3 4000-40C9 



PC SR AC XR YR SP 
. 5 97FE 72 00 00 40 F6 



■ 

4000 20 FD AE 
4003 20 8A AD 
4006 20 F7 B7 

4009 AS 14 
400B 85 FB 
400D 8D 96 40 

4010 A5 15 
4012 85 FC 



JSR «AEFD 
JSR «AD8A 
JSR *B7F7 
LDA $14 
STA «FB 
STA «4096 
LDA «15 
STA *FC 
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4014 


8D 


97 


40 


STA 


«4097 




4017 


20 


FD 


AE 


JSR 


«AEFD 




401A 


20 


9E 


B7 


JSR 


«B79E 




401D 


8A 






TXA 






401E 


8D 


95 


40 


STA 


«4095 




4021 


8D 


94 


40 


STA 


«4094 




4024 


20 


FD 


AE 


JSR 


SAEFO 




4027 


20 


9E 


B7 


JSR 


*B79E 




402A 


8E 


98 


40 


STX 


«4098 




402D 


78 






SEI 






402E 


A9 


3A 




LDA 


#«3A 




4030 


8D 


14 


03 


STA 


«0314 




4033 


A9 


40 




LDA 


#$40 




4035 


8D 


15 


03 


STA 


«0315 




4038 


58 






CLI 






4039 


60 






RTS 






403A 


CE 


94 


40 


DEC 


*4094 




403D 


D0 


38 




BNE 


«4077 




403F 


AD 


95 


40 


LDA 


*4095 




4042 


8D 


94 


40 


STA 


«4094 




4045 


A2 


00 




LDX 


#«00 




4047 


BD 


99 


07 


LDA 


*0799 , 


X 


404A 


9D 


98 


07 


STA 


*0798, 


X 


4040 


BO 


99 


06 


LDA 


*0B99, 


X 


4050 


90 


98 


OB 


STA 


«DB98, 


X 


4053 


E8 






I NX 






4054 


E0 


27 




CPX 


«*27 




4056 


00 


EF 




BNE 


*4047 




4058 


A0 


00 




LDY 


#«00 




405A 


Bl 


FB 




LDA 


(«FB) , 


Y 


405C 


C9 


3F 




CMP 


*»»3F 




405E 


B0 


03 




BCS 


$4063 




4060 


4C 


66 


40 


J MP 


$4066 




4063 


38 






SEC 






4064 


E9 


40 




SBC 


#«40 




4066 


80 


BF 


07 


STA 


*07BF 




4069 


20 


7A 


40 


JSR 


«407A 




406C 


A5 


FC 




LDA 


«FC 




406E 


18 






CLC 






406F 


69 


04 




ADC 


tt«04 




4071 


AD 


98 


40 


LDA 


$4098 
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4074 


8D 


BF 


DB 


STA 


«DBBF 


4077 


4C 


31 


EA 


JMP 


«EA31 


407A 


E6 


FB 




INC 


*FB 


407C 


D0 


02 




BNE 


«4080 


407E 


E6 


FC 




INC 


»FC 


4080 


A0 


00 




LDy 


#«00 


4082 


Bl 


FB 




LDA 


<*FB) , Y 


4084 


C9 


FF 




CMP 


#»FF 


4086 


F0 


01 




BEGt 


«4089 


4088 


60 






RTS 




4089 


AD 


96 


40 


LDA 


«4096 


408C 


85 


FB 




STA 


«FB 


408E 


AO 


97 


40 


LDA 


»4097 


4091 


85 


FC 




STA 


«FC 


4093 


60 






RTS 







14094 


00 


00 


00 


00 


00 


48 


45 


4C 


• 


:409C 


4C 


4F 


20 


49 


20 


41 


4D 


20 


• 


: 40A4 


41 


20 


43 


42 


4D 


20 


36 


34 


■ 


:40AC 


20 


4D 


49 


43 


52 


4F 


2D 


43 


• 


:40B4 


4F 


4D 


50 


55 


54 


45 


52 


20 




:40BC 


41 


4E 


44 


20 


49 


20 


41 


4D 


• 


: 40C4 


20 


36 


34 


20 


FF 


AD 


37 


41 



35. Flash screen 



This routine allows you to flash the screen colour from one colour 
to another at a specified rate. 

The syntax is as follows: 

SYS 16384,colour1,colour2,rate 

where colourl is the first colour, colour2 is the second and rate 
is the number of 60ths of a second between flashes, e.g. 10 
is 1/6 second. Setting the rate to switches off the flash. 



PAL (C)1979 BRAD TEMPLETON 
2 



20: 


4000 










.OPT 


P, 00 


30: 


4000 








t 


*= 

SYNTAX 


«4000 












■ 

> 


SYSFLASH,C0L0UR1 












a 

t 


C0L0UR2,N0 


OF 












m 
> 


CHANGES A 


SECOND 


50: 


4000 


20 


FD 


AE 




JSR 


»AEFD 


70: 


4003 


20 


8A 


AD 




JSR 


$AD8A 


80: 


4006 


20 


F7 


B7 




JSR 


«B7F7 


90: 


4009 


A5 


15 






LDA 


*15 


90: 


400B 


F0 


03 






BEQ 


MORE 


90: 


400D 


4C 


48 


B2 




JMP 


«B248 


100: 


4010 


A5 


14 




MORE LDA 


«14 


101: 


4012 


80 


8E 


40 




STA 


TEMP 


102: 


4015 


20 


FD 


AE 




JSR 


«AEFD 


110: 


4018 


20 


8A 


AD 




JSR 


«AD8A 


120: 


401B 


20 


F7 


B7 




JSR 


SB7F7 


130: 


401E 


AS 


15 






LDA 


$15 



149 



140: 


4020 


F0 


03 






BEQ 


MOREl 


150: 


4022 


4C 


48 


62 




JMP 


«B248 


160: 


4025 


A5 


14 




MOREl 


LDA 


«14 


170: 


4027 


80 


8F 


40 




STA 


TEMP+1 


180: 


402A 


20 


FD 


AE 




JSR 


«AEFD 


190: 


402D 


20 


8A 


AD 




JSR 


«AD8A 


200: 


4030 


20 


F7 


B7 




JSR 


«B7F7 


210: 


4033 


A5 


15 






LDA 


«15 


220: 


4035 


F0 


03 






BEQ 


M0RE2 


230: 


4037 


4C 


48 


B2 




JMP 


«B248 


240: 


403A 


A5 


14 




M0RE2 


LDA 


S14 


240: 


403C 


F0 


43 






BEQ 


RESET 


250: 


403E 


8D 


90 


40 




STA 


TEMP+2 


250: 


4041 


78 








SEI 




260: 


4042 


A9 


54 






LDA 


#<MAIN 


270: 


4044 


8D 


14 


03 




STA 


788 


280: 


4047 


A9 


40 






LDA 


#>MAIN 


290: 


4049 


8D 


15 


03 




STA 


789 


300: 


404C 


58 








CLI 




310: 


404D 


AD 


90 


40 




LDA 


TEMP+2 


310: 


4050 


8D 


91 


40 




STA 


TEMP+3 


320: 


4053 


60 








RTS 




330: 


4054 








MAIN 


S 


* 


340: 


4054 


CE 


91 


40 




DEC 


TEMP+3 


350: 


4057 


D0 


25 






BNE 


FINISH 


360: 


4059 


AD 


21 


D0 




LDA 


53281 


360: 


405C 


29 


0F 






AND 


#15 


370: 


405E 


CD 


8F 


40 




CMP 


TEMP+1 


380: 


4061 


F0 


0F 






BEQ 


DO0 


390: 


4063 


AD 


8F 


40 




LDA 


TEMP+1 


400: 


4066 


8D 


21 


D0 




STA 


53281 


400: 


4069 


AD 


90 


40 




LDA 


TEMP+2 


400: 


406C 


8D 


91 


40 




STA 


TEMP+3 


410: 


406F 


4C 


7E 


40 




JMP 


FINISH 


420: 


4072 


AD 


8E 


40 


DO0 


LDA 


TEMP 


430: 


4075 


8D 


21 


D0 




STA 


53281 


440: 


4078 


AD 


90 


40 




LDA 


TEMP+2 


440: 


407B 


8D 


91 


40 




STA 


TEMP+3 


450: 


407E 


4C 


31 


EA 


FINISH 


JMP 


«EA31 


460: 


4081 


78 






RESET 


SEI 




470: 


4082 


A9 


31 






LDA 


#49 



150 



480: 4084 8D 14 03 STA 788 

490: 4087 A9 EA LDA #234 

500: 4089 8D 15 03 STA 789 

510: 408C 58 CLI 

520: 408D 60 RTS 
530: 408E TEMP = * 

3 4000-408E 

READY. 



PC SR AC XR YR SP 
. ; 97FE 72 00 00 40 F6 



4000 


20 


FD 


AE 


JSR 


«AEFD 


4003 


20 


8A 


AD 


JSR 


«AD8A 


4006 


20 


F7 


B7 


JSR 


»B7F7 


4009 


A5 


15 




LDA 


«15 


400B 


F0 


03 




BEQ 


$4010 


400D 


4C 


48 


B2 


J MP 


$B248 


4010 


A5 


14 




LDA 


«14 


4012 


8D 


8E 


40 


STA 


«408E 


4015 


20 


FD 


AE 


JSR 


«AEFD 


4018 


20 


8A 


AD 


JSR 


«AD8A 


401B 


20 


F7 


B7 


JSR 


*B7F7 


401E 


A5 


15 




LDA 


SIS 


4020 


F0 


03 




BEQ 


«4025 


4022 


4C 


48 


B2 


JMP 


$B248 


4025 


A5 


14 




LDA 


«14 


4027 


8D 


8F 


40 


STA 


*408F 


402A 


20 


FD 


AE 


JSR 


«AEFD 


402D 


20 


8A 


AD 


JSR 


«AD8A 


4030 


20 


F7 


B7 


JSR 


SB7F7 


4033 


AS 


15 




LDA 


«15 


4035 


F0 


03 




BEQ 


«403A 


4037 


4C 


48 


B2 


JMP 


«B248 



403A 


A5 


14 




LDA 


«14 


403C 


F0 


43 




BEQ 


$4081 


403E 


8D 


90 


40 


STA 


*4090 


4041 


78 






SEI 




4042 


A9 


54 




LDA 


#«S4 


4044 


8D 


14 


03 


STA 


«0314 


4047 


A9 


40 




LDA 


#«40 


4049 


8D 


15 


03 


STA 


«0315 


404C 


58 






CLI 




404D 


AO 


90 


40 


LOA 


«4090 


4050 


80 


91 


40 


STA 


*4091 


4053 


60 






RTS 




4054 


CE 


91 


40 


DEC 


«4091 


4057 


00 


25 




BNE 


*407E 


4059 


AD 


21 


00 


LOA 


«D021 


405C 


29 


0F 




AND 


#«0F 


405E 


CD 


8F 


40 


CMP 


«408F 


4061 


F0 


0F 




BEQ 


«4072 


4063 


AD 


8F 


40 


LOA 


«408F 


4066 


80 


21 


00 


STA 


»O021 


4069 


AD 


90 


40 


LDA 


94090 


406C 


80 


91 


40 


STA 


»4091 


406F 


4C 


7E 


40 


JMP 


•407E 


4072 


AD 


8E 


40 


LOA 


»408E 


4075 


80 


21 


00 


STA 


SD021 


4078 


AO 


90 


40 


LOA 


»4090 


407B 


80 


91 


40 


STA 


«4091 


407E 


4C 


31 


EA 


JMP 


9EA31 


4081 


78 






SEI 




4082 


A9 


31 




LOA 


»«31 


4084 


80 


14 


03 


STA 


«0314 


4087 


A9 


EA 




LOA 


#»EA 


4089 


80 


15 


03 


STA 


»0315 


408C 


58 






CLI 




408D 


60 






RTS 





36. Flash border 

This routine does tlie same as the flash screen routine except 
that the border is flashed. 

The syntax is as follows: 

SYS 1 6384,colourl ,colour2, rate 

Setting the rate to turns off the flash. 



PAL <C)1979 BRAD TEMPLETON 
2 



20: 


4000 










• OPT 


P,00 


30: 


4000 








• 

1 


*= 

SYNTAX 


«4000 












5 


SYSFLASH.COLOURl 












■ 


C0L0UR2,N0 


OF 












■ 


CHANGES A 


SECOND 


50: 


4000 


20 


FD 


AE 




JSR 


«AEFD 


70: 


4003 


20 


8A 


AD 




JSR 


«AD8A 


80: 


4006 


20 


F7 


B7 




JSR 


«B7F7 


90: 


4009 


AS 


15 






LDA 


«15 


90: 


400B 


F0 


03 






BEQ 


MORE 


90: 


400D 


4C 


48 


B2 




JMP 


«B248 


100: 


4010 


AS 


14 




MORE LDA 


«14 


101 : 


4012 


8D 


8E 


40 




STA 


TEMP 


102: 


4015 


20 


FD 


AE 




JSR 


«AEFD 


110: 


4018 


20 


8A 


AD 




JSR 


«AD8A 


120: 


401B 


20 


F7 


B7 




JSR 


«B7F7 


130: 


401E 


AS 


15 






LDA 


«15 


140: 


4020 


F0 


03 






BEQ 


MOREl 


150: 


4022 


4C 


48 


62 




JMP 


«B248 



153 



160: 


4025 


AS 


14 




MOREl 


LOA 


«14 


170: 


4027 


8D 


8F 


40 




STA 


TEMP+1 


180: 


402A 


20 


FO 


AE 




JSR 


«AEFO 


190: 


402D 


20 


8A 


AD 




JSR 


«A08A 


200: 


4030 


20 


F7 


B7 




JSR 


*B7F7 


210: 


4033 


A5 


15 






LOA 


$15 


220: 


4035 


F0 


03 






BEQ 


M0RE2 


230: 


4037 


4C 


48 


B2 




JMP 


«B248 


240: 


403A 


A5 


14 




M0RE2 


LOA 


«14 


240: 


403C 


F0 


43 






BEQ 


RESET 


250: 


403E 


80 


90 


40 




STA 


TEMP+2 


250: 


4041 


78 








SEI 




260: 


4042 


A9 


54 






LOA 


tt<MAIN 


270: 


4044 


8D 


14 


03 




STA 


788 


280: 


4047 


A9 


40 






LOA 


#>MAIN 


290: 


4049 


8D 


15 


03 




STA 


789 


300: 


404C 


58 








CLI 




310: 


404D 


AO 


90 


40 




LOA 


TEMP+2 


310: 


4050 


80 


91 


40 




STA 


TEMP+3 


320: 


4053 


60 








RTS 




330: 


4054 








MAIN 




* 


340: 


4054 


CE 


91 


40 




OEC 


TEMP+3 


350: 


4057 


00 


25 






BNE 


FINISH 


360: 


4059 


AO 


20 


00 




LOA 


53280 


360: 


405C 


29 


0F 






AND 


M15 


370: 


405E 


CO 


8F 


40 




CMP 


TEMP+1 


380: 


4061 


F0 


0F 






BEQ 


000 


390: 


4063 


AO 


8F 


40 




LOA 


TEMP+1 


400: 


4066 


80 


20 


00 




STA 


53280 


400: 


4069 


AO 


90 


40 




LOA 


TEMP+2 


400: 


406C 


80 


91 


40 




STA 


TEMP+3 


410: 


406F 


4C 


7E 


40 




JMP 


FINISH 


420: 


4072 


AO 


8E 


40 


000 


LOA 


TEMP 


430: 


4075 


80 


20 


00 




STA 


53280 


440: 


4078 


AO 


90 


40 




LOA 


TEMP+2 


440: 


407B 


80 


91 


40 




STA 


TEMP+3 


450: 


407E 


4C 


31 


EA 


FINISH 


JMP 


«EA31 


460: 


4081 


78 






RESET 


SEI 




470: 


4082 


A9 


31 






LOA 


#49 


480: 


4084 


80 


14 


03 




STA 


788 


490: 


4087 


A9 


EA 






LOA 


#234 



154 



500: 4089 8D 15 03 STA 789 

510: 408C 58 CLI 
520: -4080 60 RTS 
530: 408E TEMP = * 

3 4000-408E 

READY. 



PC SR AC XR YR SP 
. ; 97FE 72 00 00 40 F6 



4000 


20 


FD 


AE 


JSR 


«AEFD 


4003 


20 


8A 


AD 


JSR 


«AD8A 


4006 


20 


F7 


B7 


JSR 


«B7F7 


4009 


AS 


15 




LDA 


«15 


400B 


F0 


03 




BEQ 


«4010 


400D 


4C 


48 


B2 


J MP 


«B248 


4010 


A5 


14 




LDA 


«14 


4012 


8D 


8E 


40 


STA 


«408E 


4015 


20 


FD 


AE 


JSR 


«AEFD 


4018 


20 


8A 


AD 


JSR 


«AD8A 


401B 


20 


F7 


B7 


JSR 


*B7F7 


401E 


A5 


15 




LDA 


*15 


4020 


F0 


03 




BEQ 


«4025 


4022 


4C 


48 


B2 


J MP 


«B248 


4025 


A5 


14 




LDA 


«14 


4027 


8D 


8F 


40 


STA 


«408F 


402A 


20 


FD 


AE 


JSR 


«AEFD 


402D 


20 


8A 


AD 


JSR 


«AD8A 


4030 


20 


F7 


B7 


JSR 


«B7F7 


4033 


A5 


15 




LDA 


*15 


4035 


F0 


03 




BEQ 


«403A 


4037 


4C 


48 


B2 


JMP 


«B248 


403A 


A5 


14 




LDA 


«14 


403C 


F0 


43 




BEQ 


$4081 


403E 


8D 


90 


40 


STA 


*4090 
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4041 


78 






SEI 




4042 


A9 


54 




LOA 


#«54 


4044 


8D 


14 


03 


STA 


«0314 


4047 


A9 


40 




LOA 


#«40 


4049 


80 


15 


03 


STA 


«0315 


404C 


58 






CLI 




404D 


AD 


90 


40 


LDA 


«4090 


4050 


80 


91 


40 


STA 


«4091 


4053 


60 






RTS 




4054 


CE 


91 


40 


DEC 


«4091 


4057 


00 


25 




BNE 


»407E 


4059 


AO 


20 


00 


LDA 


«O020 


405C 


29 


0F 




AND 


tt«0F 


405E 


CO 


8F 


40 


CMP 


«408F 


4061 


F0 


0F 




BEQ 


«4072 


4063 


AO 


8F 


40 


LDA 


«408F 


4066 


80 


20 


00 


STA 


«O020 


4069 


AO 


90 


40 


LOA 


«4090 


406C 


80 


91 


40 


STA 


«4091 


406F 


4C 


7E 


40 


JMP 


«407E 


4072 


AD 


8E 


40 


LDA 


«408E 


4075 


80 


20 


00 


STA 


«D020 


4078 


AD 


90 


40 


LDA 


$4090 


407B 


80 


91 


40 


STA 


«4091 


407E 


4C 


31 


EA 


JMP 


«EA31 


4081 


78 






SEI 




4082 


A9 


31 




LDA 


#«31 


4084 


80 


14 


03 


STA 


«0314 


4087 


A9 


EA 




LDA 


4t«EA 


4089 


80 


15 


03 


STA 


«0315 


408C 


58 






CLI 




408D 


60 






RTS 





37. Flash characters 

This routine flashes (or reverses) all the characters on the screen 
at a specified rate. 

The syntax is as follows: 

SYS 16384, rate 

Setting the rate to turns off the flash. 



PAL <C)1979 BRAD TEMPLETOM 
2 

20 : 4000 
30 : 4000 



.OPT P,00 
*= $4000 



70: 4000 20 FD AE 

30: 4003 20 8A AD 

90: 4006 20 F7 B7 



SYNTAX FLASH 1 OR 


JSR «AEFD 
JSR $AD8A 
JSR SB7F7 



100: 4009 A5 14 
110: 400B F0 13 



LDA $14 
BEQ RESET 



120: 
120: 
1 

130: 
140: 
N 



400D 8D 67 40 
4010 8D 68 40 

4013 78 

4014 A9 2D 



STA TEMP 

STA TEMP+ 

SEI 

LDA #<MAI 
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150: 


4016 


8D 


14 


03 




STA 


788 


160: 


4019 


A9 


40 






LDA 


«>MAI 


N 
















170: 


401B 


8D 


15 


03 




STA 


789 


180: 


401E 


58 








CLI 




190: 


401F 


60 








RTS 




200: 


4020 


78 






RESET 


SEI 




220: 


4021 


A9 


31 






LDA 


«49 


230: 


4023 


8D 


14 


03 




STA 


788 


240: 


4026 


A9 


EA 






LDA 


**234 


250: 


4028 


8D 


15 


03 




STA 


789 


JlOlO m 




Do 








CLI 




270: 


402C 


60 








RTS 




290: 


402D 


CE 


68 


40 


MAIN 


DEC 


TEMP + 


1 

300: 


4030 


F0 


03 






BEG) 


MORE 


310: 


4032 


4C 


31 


EA 




JMP 


«EA31 


320: 


4035 


AD 


67 


40 


MORE 


LDA 


TEMP 


330: 
1 


4038 


8D 


68 


40 




STA 


TEMP + 












? 

; INVERT 


CHARACTERS 


370: 


403B 


A2 


00 




! 


LDX 




380: 

X 


403D 


BD 


00 


04 


LOOP 


LDA 


1024, 


390: 


4040 


18 








CLC 




400: 


4041 


69 


80 






ADC 


#128 


410: 

X 


4043 


9D 


00 


04 




STA 


1024, 


430: 


4046 


BD 


FF 


04 


5 


LDA 


1024 + 


255, X 
















440: 


4049 


18 








CLC 




/t cr A( ■ 












ADC 


«128 


460: 


404C 


9D 


FF 


04 




STA 


1024 + 


255, X 
















480: 


404F 


BD 


FE 


05 


5 


LDA 


1024 + 
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255+255, X 
490: 4052 18 
500: 4053 69 80 
510: 4055 9D FE 05 
255+255, X 



CLC 
ADC 
STA 



#128 
1024 + 



530: 4058 BD FD 06 
255+255+255, X 
540: 405B 18 
550: 405C 69 80 
560: 405E 9D FD 06 
255+255+255, X 
570: 4061 E8 
580: 4062 D0 D9 
590: 4064 4C 31 EA 



LDA 1024+ 



CLC 
ADC 
STA 

INX 
BNE 
J MP 



#128 
1024 + 



LOOP 
«EA31 



600: 4067 
34000-4067 



TEMP 



READY, 



PC SR AC XR YR SP 
. i 97FE 72 00 00 40 F6 



4000 


20 


FD 


AE 


JSR 


«AEFD 


4003 


20 


8A 


AD 


JSR 


«AD8A 


4006 


20 


F7 


B7 


JSR 


•B7F7 


4009 


A5 


14 




LDA 


«14 


4006 


F0 


13 




BEQ 


4S4020 


400D 


8D 


67 


40 


STA 


»4067 


4010 


8D 


68 


40 


STA 


«4068 


4013 


78 






SEI 




4014 


A9 


2D 




LDA 


#«2D 


4016 


8D 


14 


03 


STA 


«0314 


4019 


A9 


40 




LDA 


#«40 


401B 


8D 


15 


03 


STA 


«0315 


401E 


58 






CLI 
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401 F 


60 






RTS 






4020 


78 






SEI 






4021 


A9 


31 




LOA 


tt»31 




4023 


8D 


14 


03 


STA 


«0314 




4026 


A9 


EA 




LOA 


M«EA 




4028 


80 


15 


03 


STA 


«0315 




402B 


58 






CLI 






402C 


60 






RTS 






402D 


CE 


68 


40 


OEC 


«4068 




4030 


F0 


03 




BES 


«4035 




4032 


4C 


31 


EA 


JMP 


«EA31 




4035 


AD 


67 


40 


LOA 


•4067 




4038 


8D 


68 


40 


STA 


«4068 




403B 


A2 


00 




LOX 


#«00 




403D 


BD 


00 


04 


LOA 


«0400, 


X 


4040 


18 






CLC 






4041 


69 


80 




AOC 


4»»80 




4043 


9D 


00 


04 


STA 


«0400, 


X 


4046 


BO 


FF 


04 


LOA 


•04FF, 


X 


4049 


18 






CLC 






404A 


69 


80 




AOC 


#»80 




404C 


90 


FF 


04 


STA 


•04FF, 


X 


404F 


BO 


FE 


05 


LOA 


»05FE , 


X 


4052 


18 






CLC 






4053 


69 


80 




AOC 


tt«80 




4055 


90 


FE 


05 


STA 


«05FE , 


X 


4058 


BO 


FO 


06 


LOA 


•06FO , 


X 


405B 


18 






CLC 






405C 


69 


80 




AOC 


tt»80 




405E 


90 


FD 


06 


STA 


«06FO, 


X 


4061 


E8 






I NX 






4062 


00 


09 




BNE 


«403O 




4064 


4C 


31 


EA 


JMP 


«EA31 




4067 


20 


00 


AO 


JSR 


«AOO0 





38. Flash colour 

This routine flashes the colour of the characters between two 
specified colours at a specified rate. 

The syntax is as follows: 

SYS 16384,colour1,colour2,rate 

A rate of zero turns off the flash. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 4000 .OPT P,00 

30: 4000 $4000 



SYNTAX 
SYSFLASH,C0L0UR1 
,C0L0UR2,N0 OF 
CHANGES A SECOND 



80: 


4000 


20 


FD 


AE 


JSR 


*AEFD 


90: 


4003 


20 


8A 


AD 


JSR 


«AD8A 


100: 


4006 


20 


F7 


B7 


JSR 


SB7F7 


110: 


4009 


A5 


15 




LDA 


*15 


110: 


400B 


F0 


03 




BEQ 


MORE 


110: 


400D 


4C 


48 


B2 


JMP 


«B248 


120: 


4010 


A5 


14 


MORE 


LDA 


$14 


130: 


4012 


SD 


A5 


40 


STA 


TEMP 


140: 


4015 


20 


FD 


AE 


JSR 


«AEFD 



161 



150: 


4018 


20 


oH 


A T\ 




T CD 




160: 


401B 


20 


F7 


B7 




JSR 


*B7F7 


170: 


401E 


A5 


15 






LDA 


*15 


180: 


4020 


rk? 












190: 


4022 


4C 


48 


B2 




J MP 


$B248 


200: 


4025 


A5 


14 




MOREl 


LDA 


*14 


210: 


40Z7 


SD 


Ho 


AOS 




OTA 




1 

220: 


402A 


20 


FD 


A C 

Ht 




T CD 




230: 


402D 




O A 
OH 


HJJ 




7 QQ 
J OIX 


■Pri U O H 


240: 


4030 


20 


F7 


B7 




JSR 


*B7F7 


250: 


4033 


A5 


15 






LDA 


«15 


260 : 


4035 


r JO 












270: 


4037 


4C 


48 


B2 




JMP 


$B248 


280: 


403A 


A5 


14 




M0RE2 


LDA 


$14 


280: 


403C 


F0 


59 






BEQ 


RESET 


290: 


403E 


8D 


A7 


40 




STA 


TEMP + 


2 
















290: 


4041 


78 








SEI 




300: 


4042 


A9 


54 






LDA 


«<MA1 


N 
















310: 


4044 


8D 


14 


03 




STA 


788 


320: 


4047 


A9 


40 






LDA 


#>MAI 


N 
















330: 


4049 


8D 


15 


03 




STA 


789 


340: 


404C 


58 








CLI 




350: 


404D 


AD 


A7 


40 




LDA 


TEMP + 


2 
















350: 


4050 


8D 


A8 


40 




STA 


TEMP + 


3 
















360: 


4053 


60 








RTS 





162 



370: 4054 

380: 4054 CE AS 40 

3 

390: 4057 D0 29 
H 

400: 4059 AD A4 40 

410: 405C CD A6 40 
1 

420: 405F F0 12 

440: 4061 AD A6 40 
1 

450: 4064 8D A4 40 

460: 4067 20 85 40 

470: 406A AD A7 40 
2 

480: 406D 8D A8 40 
3 

490: 4070 4C 82 40 
H 

510: 4073 AD A5 40 

520: 4076 SD A4 40 

530: 4079 20 85 40 

540: 407C AD A7 40 
2 

550: 407F 8D A8 40 
3 

570: 4082 4C 31 EA 



590: 4085 A2 00 
600: 4087 9D 00 D8 
,X 

610: 408A 9D FF D8 
+255, X 

620: 408D 9D FE D9 



MAIN = * 

DEC TEMP+ 

BNE FINIS 

LDA STORE 

CMP TEMP+ 

BEQ DO0 

5 

LDA TEMP+ 

STA STORE 

JSR FILL 

LDA TEMP+ 

STA TEMP+ 

JMP FINIS 



DO0 LDA TEMP 

STA STORE 

JSR FILL 

LDA TEMP+ 

STA TEMP+ 

FINISH JMP «EA31 



FILL LDX m 

LOOP STA 55296 

STA 55296 

STA 55296 
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+255+255, X 



630: 


4090 


9D 


FD 


DA 




STA 


5529< 


+255+255+255 


',X 












640: 


4093 


E8 








I NX 




650: 


4094 


D0 


Fl 






BNE 


LOOP 


660: 


4096 


60 






> 


RTS 




690: 


4097 


78 






> 

RESET 


SEI 




700: 


4098 


A9 


31 






LDA 


#49 


710: 


409A 


SD 


14 


03 




STA 


788 


720: 


409D 


A9 


EA 






LDA 


♦♦234 


730: 


409F 


8D 


15 


03 




STA 


789 


740: 


40A2 


58 








CLI 




750: 


40A3 


60 








RTS 




760: 


40A4 


00 






STORE 


. BYT 





770: 


40A5 








TEMP 




* 



3 4000-40A5 
READY. 



PC SR AC XR YR SP 
. J 97FE 72 00 00 40 F6 



4000 


20 


FD 


AE 


JSR 


«AEFD 


4003 


20 


8A 


AD 


JSR 


«AD8A 


4006 


20 


F7 


B7 


JSR 


»B7F7 


4009 


AS 


15 




LDA 


*1S 


400B 


F0 


03 




BEQ 


«4010 


400D 


4C 


48 


B2 


JMP 


«6248 


4010 


A5 


14 




LDA 


«14 


4012 


80 


AS 


40 


STA 


«40A5 


4015 


20 


FD 


AE 


JSR 


«AEFD 


4018 


20 


8A 


AD 


JSR 


»AD8A 


401B 


20 


F7 


B7 


JSR 


«B7F7 


401E 


AS 


15 




LDA 


»1S 


4020 


F0 


03 




BEQ 


«4025 
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4022 


4C 


48 


B2 


JMP 


«B248 




4025 


A5 


14 




LDA 


«14 




4027 


8D 


A6 


40 


STA 


»40A6 




402A 


20 


FO 


AE 


JSR 


«AEFD 




402D 


20 


8A 


AO 


JSR 


«AD8A 




4030 


20 


F7 


B7 


JSR 


*B7F7 




4033 


A5 


15 




LOA 


«15 




4035 


F0 


03 




EES 


«403A 




4037 


4C 


48 


B2 


JMP 


«B248 




403A 


A5 


14 




LDA 


«14 




403C 


F0 


59 




BEQ 


*4097 




403E 


80 


A7 


40 


STA 


«40A7 




4041 


78 






SEI 






4042 


A9 


54 




LDA 


#«54 




4044 


80 


14 


03 


STA 


«0314 




4047 


A9 


40 




LDA 


#«40 




4049 


80 


15 


03 


STA 


«0315 




404C 


58 






CLI 






404D 


AO 


A7 


40 


LDA 


*40A7 




4050 


80 


A8 


40 


STA 


«40A8 




4053 


60 






RTS 






4054 


CE 


A8 


40 


DEC 


«40A8 




4057 


00 


29 




BNE 


«4082 




4059 


AO 


A4 


40 


LDA 


«40A4 




405C 


CD 


A6 


40 


CMP 


«40A6 




405F 


F0 


12 




BEQ 


«4073 




4061 


AO 


A6 


40 


LDA 


«40A6 




4064 


80 


A4 


40 


STA 


«40A4 




4067 


20 


85 


40 


JSR 


«4085 




406A 


AO 


A7 


40 


LOA 


«40A7 




406D 


80 


A8 


40 


STA 


»40A8 




4070 


4C 


82 


40 


JMP 


«4082 




4073 


AO 


A5 


40 


LOA 


«40A5 




4076 


80 


A4 


40 


STA 


«40A4 




4079 


20 


85 


40 


JSR 


«4085 




407C 


AD 


A7 


40 


LOA 


«40A7 




407F 


80 


A8 


40 


STA 


«40A8 




4082 


4C 


31 


EA 


JMP 


«EA31 




4085 


A2 


00 




LOX 


«*$00 




4087 


90 


00 


08 


STA 


«O800, 


X 


408A 


90 


FF 


08 


STA 


*08FF, 


X 



4080 


9D 


FE 


D9 


STA 


«D9FE, 


X 


4090 


9D 


FD 


DA 


STA 


«DAFD, 


X 


4093 


E8 






I NX 






4094 


D0 


Fl 




BNE 


$4087 




4096 


60 






RTS 






4097 


78 






SEI 






4098 


A9 


31 




LDA 


#«31 




409A 


8D 


14 


03 


STA 


«0314 




409D 


A9 


EA 




LDA 


#«EA 




409F 


8D 


15 


03 


STA 


«0315 




40A2 


58 






CLI 






40A3 


60 






RTS 






40A4 


00 






BRK 







39. Print at 



This routine allows you to print at any position on the screen 
without using lots of cursor controls. 

The syntax is as follows: 

SYS960,X,Y,"text" 

X is the column to start at and is between and 39. Y is the 
row to start at and is between and 24. The text can be text 
in quotes, strings, numbers, variables or any other legal print 
statement. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 03C0 .OPT P,00 

30: 03C0 *" 960 



J PRINT AT ROUTINE 



60: 

70: 

80: 

90: 

100: 

110: 

120: 

130: 

140: 

150: 

160: 

170: 

180: 

190: 



03C0 20 FD AE 
03C3 20 9E B7 



03C6 8A 
03C7 48 



JSR «AEFO 
JSR «B79E 
TXA 



PHA 



03C8 20 FD AE 
03CB 20 9E B7 



03CE 8A 
03CF A8 
03D0 68 
03D1 AA 
03D2 18 



JSR *AEFD 
JSR »B79E 
TXA 



TAY 
PLA 
TAX 
CLC 



03D3 20 F0 FF 
03D6 20 FD AE 
03D9 4C A0 AA 



JSR »FFF0 
JSR *AEFD 
J MP $AAA0 
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200: 03DC 00 BRK 
303C0-03DD 

READY. 



PC SR AC XR YR SP 
. ; 97FE 72 00 00 40 F6 



03C0 


20 


FD 


AE 


JSR 


«AEFD 


03C3 


20 


9E 


B7 


JSR 


*B79E 


03C6 


8A 






TXA 




03C7 


48 






PHA 




03C8 


20 


FD 


AE 


JSR 


«AEFD 


03CB 


20 


9E 


B7 


JSR 


*B79E 


03CE 


8A 






TXA 




03CF 


A8 






TAY 




03D0 


68 






PLA 




03D1 


AA 






TAX 




03D2 


18 






CLC 




0303 


20 


F0 


FF 


JSR 


«FFF0 


03D6 


20 


FD 


AE 


JSR 


*AEFD 


03D9 


4C 


A0 


AA 


JMP 


«AAA0 


03DC 


00 






BRK 
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40. Split screen 



This routine sets up a raster scan that allows the text and high 
res screen to coexist at the same time. You can specify where 
the cut is to take place and whether text or high res is at the top. 

The syntax is as follows: 

SYS 16384, line for change,option 

where line is the line down the screen (the same as the Y 
coordinates for plot) and option is 1 for the text to be at the 
top and for the text to be at the bottom. If line has the value 
then the raster is switched off. The line number must be in 
the range 50 to 249. 



PAL <C)1979 BRAD TEMPLETON 
2 

20: 4000 .OPT P,00 

30: 4000 *= «4000 



; RASTER TO ALLOW SPLIT 

; SCREENS 

{SYNTAX 



; sys 16384, change, 1= 
;text/0=hires 



110: 
120: 
130: 



4000 20 FD AE 
4003 20 8A AO 
4006 20 F7 B7 



J8R «AEFD 
JSR $AD8A 
JSR *B7F7 



150: 
160: 

170: 
180: 
180: 



4009 A5 15 
400B D0 2B 
400D AS 14 
400F D0 03 



4011 4C A5 40 



JMP RESET 



LDA «14 
BNE NOR 



LDA «15 
BNE IQERR 
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190: 4014 C9 31 

200: 4016 90 20 

210: 4018 C9 FA 

220: 401A B0 IC 

230: 401C 8D FE 

250: 401F 20 FD 

260: 4022 20 8A 

270: 4025 20 F7 

280: 4028 A5 15 

290: 402A D0 0C 

300: 402C A5 14 

310: 402E C9 02 

320: 4030 B0 06 

330: 4032 8D FF 

340: 4035 4C 3B 

350: 4038 4C 48 

360: 403B AD FE 

370: 403E 8D F8 

380: 4041 AD FF 

390: 4044 C9 01 

400: 4046 F0 17 

410: 4048 A9 08 

410: 404A A2 15 

420: 404C 8D FA 

420: 404F 8E F6 

430: 40S2 A9 3B 

430: 4054 A2 IB 

440: 4056 8D FC 

440: 4059 8E FD 

450: 405C 4C 73 

460: 405F A9 15 

460: 4061 A2 08 

470: 4063 8D FA 

470: 4066 8E FB 

480: 4069 A9 IB 

480: 406B A2 3B 

490: 406D 8D FC 

490: 4070 8E FD 

510: 4073 



170 





MOR 


CMP 






BCC 






CMP 






BCS 


40 




STA 




; 




AE 




JSR 


AD 




JSR 


B7 




JSR 






LDA 






BNE 






LDA 






CMP 






BCS 


40 




STA 


40 




J MP 


B2 


IQERR 


JMP 


40 


MORE 


LDA 


40 




STA 


40 




LDA 






CMP 






BEQ 






LDA 






LDX 


40 




STA 


40 




STX 






LDA 






LDX 


40 




STA 


40 




STX 


40 




JMP 




TEXTTOP 


LDA 






LDX 


40 




STA 


40 




STX 






LDA 






LDX 


40 




STA 


40 




STX 




; 






SETUP 





#49 

IQERR 

tt250 

IQERR 

TEMP 

«AEFD 

«A08A 

«B7F7 

»15 

IQERR 

«14 

#2 

IQERR 

TEMP+1 

MORE 

«B248 

TEMP 

RASTER 

TEMP+1 

ttl 

TEXTTOP 

#8 

#21 

TEXT 

TEXT+1 

#59 

#27 

HIRES 

HIRES+l 

SETUP 

#21 

#8 

TEXT 

TEXT+1 

#27 

#59 

HIRES 

HIRES+1 

* 



520: 


4073 


78 








SEI 




530: 


4074 


A9 


7F 






LOA 


««7F 


540: 


4076 


8D 


00 


DC 




STA 


$OC0O 


550: 


4079 


A9 


01 






LDA 


#«01 


560: 


407B 


8D 


lA 


00 




STA 


«D01A 


570: 


407E 


A9 


02 






LOA 


U*02 


580: 


4080 


85 


FB 






STA 


$FB 


590: 


4082 


AD 


F8 


40 




LDA 


RASTER 


600: 


4085 


80 


12 


00 




STA 


«D012 


610: 


4088 


A9 


18 






LDA 


tt«18 


620: 


408A 


80 


11 


00 




STA 


«O011 


630: 


408D 


AD 


14 


03 




LOA 


»0314 


640: 


4090 


80 


F6 


40 




STA 


FIN-2 


650: 


4093 


AD 


15 


03 




LOA 


«0315 


660: 


4096 


80 


F7 


40 




STA 


FIN-1 


670: 


4099 


A9 


C6 






LOA 


«<MAIN 


680: 


409B 


80 


14 


03 




STA 


788 


690: 


409E 


A9 


40 






LDA 


#>MAIN 


700: 


40A0 


80 


15 


03 




STA 


789 


710: 


40A3 


58 








CLl 




720: 


40A4 


60 








RTS 




730: 


40A5 


78 






RESET 


SEI 




730: 


40A6 


A9 


31 






LOA 


#49 


740: 


40A8 


80 


14 


03 




STA 


788 


750: 


40AB 


A9 


EA 






LDA 


#234 


750: 


40AO 


80 


15 


03 




STA 


789 


760: 


40B0 


A9 


15 






LDA 


#21 


760: 


40B2 


80 


18 


00 




STA 


53272 


770: 


40B5 


A9 


IB 






LOA 


#27 


770: 


40B7 


8D 


11 


00 




STA 


53265 


780: 


40BA 


A9 


00 






LDA 


#0 


780: 


40BC 


80 


lA 


00 




STA 


9O01A 


790: 


40BF 


A9 


80 






LDA 


#128 


790: 


40C1 


80 


00 


DC 




STA 


56333 


800: 


40C4 


58 








CLI 




800: 


40C5 


60 








RTS 




810: 


40C6 


AD 


19 


00 


MAIN 


LDA 


$0019 


820: 


40C9 


80 


19 


00 




STA 


«D019 


830: 


40CC 


29 


01 






AND 


#«01 


840: 


40CE 


F0 


IF 






BEG) 


LOOP 


850: 


40D0 


C6 


FB 






DEC 


«FB 
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860: 


4002 


10 


04 






BPL 


L00P9 


870: 


40D4 


A9 


01 






LOA 


»«01 


880: 


40D6 


85 


FB 






STA 


«FB 


890: 


40D8 


A6 


FB 




L00P9 


LOX 


»FB 


900: 


40DA 


BD 


F8 


40 




LOA 


RASTER 


910: 


40DD 


8D 


12 


00 




STA 


«O012 


920: 


40E0 


BO 


FA 


40 




LOA 


TEXT.X 


930: 


40E3 


80 


18 


00 




STA 


53272 


940: 


40E6 


BO 


FC 


40 




LOA 


HIRES, 


950: 


40E9 


80 


11 


00 




STA 


$0011 


960: 


40EC 


8A 








TXA 




970: 


40ED 


F0 


06 






BEQ 


LOOPl 


980: 


40EF 


68 






LOOP 


PLA 




990; 


40F0 


A8 








TAY 




1000: 


40F1 


68 








PLA 




1010: 


40F2 


AA 








TAX 




1020: 


40F3 


68 








PLA 




1030: 


40F4 


40 








RTI 




1040: 


40F5 


4C 


31 


EA 


LOOPl 


JMP 


«EA31 


1040: 


40F8 








FIN 




* 


1050: 


40F8 


96 


00 




RASTER 


.BYT 


150,0 


1060: 


40FA 


08 


15 




TEXT 


.BYT 


8, 21 


1070: 


40FC 


3B 


IB 




HIRES 


.BYT 


59,27 


1080: 


40FE 


00 


00 




TEMP 


. WORO0 


14000- 


4100 















REAOY. 



4000 


20 


FO 


AE 


JSR 


«AEFO 


4003 


20 


8A 


AO 


JSR 


«A08A 


4006 


20 


F7 


B7 


JSR 


»B7F7 


4009 


A5 


15 




LOA 


«15 


400B 


00 


2B 




BNE 


$4038 


4000 


A5 


14 




LOA 


«14 


400F 


00 


03 




BNE 


«4014 


4011 


4C 


A5 


40 


JMP 


«40A5 


4014 


C9 


31 




CMP 


M«31 



172 



4016 


90 


20 




BCC 


«4038 


4018 


C9 


FA 




CMP 


««FA 


401A 


60 


IC 




BCS 


$4038 


401C 


8D 


FE 


40 


STA 


«40FE 


401F 


20 


FD 


AE 


JSR 


$AEFD 


4022 


20 


8A 


AD 


JSR 


«AD8A 


4025 


20 


F7 


B7 


JSR 


»B7F7 


4028 


A5 


15 




LDA 


«15 


402A 


D0 


0C 




BNE 


«4038 


402C 


A5 


14 




LDA 


«14 


402E 


C9 


02 




CMP 


M«02 


4030 


B0 


06 




BCS 


«4038 


4032 


80 


FF 


40 


STA 


«40FF 


4035 


4C 


3B 


40 


JMP 


«403B 


4038 


4C 


48 


B2 


J MP 


«B248 


403B 


AD 


FE 


40 


LDA 


«40FE 


403E 


8D 


F8 


40 


STA 


«40F8 


4041 


AD 


FF 


40 


LDA 


«40FF 


4044 


C9 


01 




CMP 


tt«01 


4046 


F0 


17 




BEG 


«405F 


4048 


A9 


08 




LDA 


««08 


404A 


A2 


15 




LDX 


#«15 


404C 


8D 


FA 


40 


STA 


*40FA 


404F 


8E 


FB 


40 


STX 


»40FB 


4052 


A9 


3B 




LDA 


tt«3B 


4054 


A2 


IB 




LDX 


tt«lB 


4056 


8D 


FC 


40 


STA 


«40FC 


4059 


8E 


FD 


40 


STX 


«40FD 


405C 


4C 


73 


40 


JMP 


*4073 


405F 


A9 


15 




LDA 


tt»15 


4061 


A2 


08 




LDX 


tt»08 


4063 


8D 


FA 


40 


STA 


«40FA 


4066 


8E 


FB 


40 


STX 


«40FB 


4069 


A9 


IB 




LDA 


««1B 


406B 


A2 


3B 




LDX 


tt«3B 


406D 


8D 


FC 


40 


STA 


*40FC 


4070 


8E 


FD 


40 


STX 


«40FD 


4073 


78 






SEI 




4074 


A9 


7F 




LDA 


#»7F 


4076 


8D 


0D 


DC 


STA 


«DC0D 


4079 


A9 


01 




LDA 


M«01 



407B 


8D 


lA 


D0 


STA 


«D01A 


407E 


A9 


02 




LDA 


#«02 


4080 


85 


FB 




STA 


«FB 


4082 


AD 


F8 


40 


LDA 


«40F8 


4085 


8D 


12 


D0 


STA 


«D012 


4088 


A9 


18 




LDA 


tt«18 


40eA 


8D 


11 


D0 


STA 


«D011 


408D 


AD 


14 


03 


LDA 


$0314 


4090 


8D 


F6 


40 


STA 


«40F6 


4093 


AD 


15 


03 


LDA 


«0315 


4096 


8D 


F7 


40 


STA 


*40F7 


4099 


A9 


C6 




LDA 


#«C6 


409B 


8D 


14 


03 


STA 


$0314 


409E 


A9 


40 




LDA 


t»»40 


40A0 


8D 


15 


03 


STA 


«0315 


40A3 


58 






CLI 




40A4 


60 






RTS 




40A5 


78 






SEI 




40A6 


A9 


31 




LDA 


tt«31 


40A8 


8D 


14 


03 


STA 


40314 


40AB 


A9 


EA 




LDA 


««EA 


40AO 


8D 


15 


03 


STA 


«0315 


40B0 


A9 


15 




LDA 


M«15 


40B2 


8D 


18 


D0 


STA 


»D018 


40B5 


A9 


IB 




LDA 


#«1B 


40B7 


8D 


11 


D0 


STA 


«D011 


40BA 


A9 


00 




LDA 


tt«00 


40BC 


8D 


lA 


D0 


STA 


«D01A 


40BF 


A9 


80 




LDA 


tt«80 


40C1 


8D 


0D 


DC 


STA 


«DC0D 


40C4 


58 






CLI 




40C9 


60 






RTS 




40C6 


AD 


19 


D0 


LDA 


«D019 


40C9 


8D 


19 


D0 


STA 


«D019 


40CC 


29 


01 




AND 


#«01 


40CE 


F0 


IF 




BEG 


«40EF 


40D0 


C6 


FB 




DEC 


«FB 


40D2 


10 


04 




BPL 


«40D8 


40D4 


A9 


01 




LDA 


#«01 


40D6 


85 


FB 




STA 


«FB 


40D8 


A6 


FB 




LDX 


«FB 



40DA 


BD 


F8 


40 


LDA 


«40F8, 


X 


40DD 


8D 


12 


D0 


STA 


«D012 




40E0 


BD 


FA 


40 


LDA 


«40FA, 


X 


40E3 


8D 


18 


D0 


STA 


«D018 




40E6 


BD 


FC 


40 


LDA 


*40FC , 


X 


40E9 


8D 


11 


D0 


STA 


«D011 




40EC 


8A 






TXA 






40ED 


F0 


06 




6EQ 


«40F5 




40EF 


68 






PLA 






40F0 


A8 






TAY 






40F1 


68 






PLA 






40F2 


AA 






TAX 






40F3 


68 






PLA 






40F4 


40 






RTI 






40F5 


4C 


31 


EA 


JMP 


»EA31 





. :40F8 96 00 08 15 3B IB 00 00 



40 BEST 
MACHINE CODE 
ROUTINES 
FOR THE 64 

All the machine code programs in this 
book, including Supeimon, are 
available on one cassette at £7.95, 
direct from Duckworth. Send a 
cheque/postal order (or order by 
phone with your Access or 
Barclaycard number) and the cassette 
will be sent post-free. 

We publish many other books and 
cassettes, including Exploring 
Adventures on the 64, Advanced Basic 
& Machine Code for the 64 and 
Impossible Routines for the 64. 

Write in for a catalogue 

DUCKWORTH 
The Old Piano Factory 
43 Gloucester Crescent 
London NWl 



Telephone: 01 485 3484 



